home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Treble Champions II.adf / Trashcan / tc2 < prev    next >
Text File  |  1978-12-01  |  78KB  |  3,411 lines
  1. REM $option l-
  2. REM $option k100
  3. REM $option y
  4.  
  5. SCREEN 1,320,260,3,1
  6. WINDOW 1,,(0,0)-(320,260),16+32+128+256,1
  7.  
  8. SUB pal
  9. PALETTE 0,0,0,0
  10. PALETTE 1,1,1,1
  11. PALETTE 2,.4,.4,.4
  12. PALETTE 3,1,0,0
  13. PALETTE 4,0,1,0
  14. PALETTE 5,.3,.3,.7
  15. PALETTE 6,1,1,0
  16. PALETTE 7,0,1,1
  17. END SUB
  18.  
  19. CALL pal
  20. DIM W(20,2),D(20,8),S(5,20,3),F(22),V$(17),A$(5,20),B$(22),C$(100),E(22)
  21. DIM A&(5,20),B&(22),C&(100),H(15),O(4),T$(22),i(3,22),T(22),rgb%(16)
  22. DIM l(87,6),cup%(64,3),rec(26),rec$(2),rst(5),res%(70,6)
  23. E$=SPACE$(22)
  24. H$=SPACE$(15)
  25. F$=SPACE$(22)
  26.  
  27. DEF FND$(X)=MID$(STR$(X),1-(X>=0))    
  28. DEF FNTB$(X)
  29.     IF POS(0)>X THEN PRINT
  30.     PRINT SPACE$(X-POS(0));
  31. END DEF
  32. DEF fnr(x)=INT(RND(1)*x)
  33.  
  34. speed=5:hdg=3:txt=6:GOTO i2000
  35.  
  36. 1        FOR N=1 TO 20
  37.             W(N,1)=S(F,N,2)
  38.             W(N,2)=N
  39.         NEXT N
  40. 2        FOR N=2 TO 20
  41. 3            J=N-1
  42.             L=W(N,1)
  43.             M=W(N,2)
  44. 4            IF L>W(J,1) THEN GOTO 8
  45. 5            W(J+1,1)=W(J,1)
  46.             W(J+1,2)=W(J,2)
  47. 6            J=J-1
  48.             IF J>0 THEN GOTO 4
  49. 8            W(J+1,1)=L
  50.             W(J+1,2)=M
  51.         NEXT N
  52.                 RETURN
  53.  
  54. '  --------------------------
  55.  
  56. 11        LOCATE 3,1
  57.         PTS=0
  58.         Y=1
  59.         TM=1
  60.         FOR N=1 TO 20
  61.             D(N,8)=0
  62.         NEXT N
  63. 12        IF TM>20 THEN TM=1
  64. 13        IF D(TM,8)=0
  65.             PTS=D(TM,7)
  66.             GOTO 15
  67.         END IF
  68. 14        TM=TM+1
  69.         GOTO 12
  70. 15        FOR F=1 TO 20
  71.             IF D(F,8)<>0 THEN 18
  72. 16            IF PTS<D(F,7) AND D(F,8)=0
  73.                 TM=F
  74.                 PTS=D(F,7)
  75.             END IF
  76. 17            IF PTS=D(F,7) AND F<>TM AND D(F,8)=0 THEN GOSUB 22
  77. 18        NEXT F
  78. 19        IF D(TM,8)=0
  79.             D(TM,8)=Y
  80.             GOSUB 60
  81.             Y=Y+1
  82.         END IF
  83. 20        TM=TM+1
  84.         IF Y=21 THEN RETURN 
  85. 21        GOTO 12
  86.  
  87. '  --------------------
  88.  
  89. 22        IF (D(TM,5)-D(TM,6)<(D(F,5)-D(F,6)))
  90.             TM=F
  91.             RETURN 
  92.         END IF
  93. 23        IF (D(TM,5)-D(TM,6))=(D(F,5)-D(F,6)) THEN GOSUB 25
  94. 24        RETURN 
  95.  
  96.  
  97. 25        IF D(TM,5)<D(F,5)
  98.             TM=F
  99.             RETURN
  100.         END IF
  101. 26        RETURN 
  102.  
  103. ' ---------------------
  104.  
  105. 30        CLS:COLOR hdg
  106. 41        LOCATE 1,1
  107.         PRINT "PO NAME    P  W  D  L  F  A  PTS"
  108. 50        GOSUB 11:COLOR txt
  109.         IF Q<>9
  110.             FOR N=1 TO 20
  111.                 S(LE,N,3)=D(N,8)
  112.             NEXT N
  113.             GOSUB click
  114.         END IF
  115. 51        RETURN 
  116.  
  117. ' ---------------------
  118.  
  119. 60        COLOR txt:LOCATE Y+1,30
  120.                 IF tm=1 THEN COLOR 5
  121.                 IF le=1 AND (y=1 OR y>17) THEN COLOR 1:IF tm=1 THEN COLOR 7
  122.                 IF le>1 AND (y<4 OR y>17) THEN COLOR 1:IF tm=1 THEN COLOR 7
  123.                 IF tm<>1 AND le=4 AND y>3 AND y<>20 THEN COLOR txt
  124.                 IF tm<>1 AND le=5 AND y<>1 THEN COLOR txt
  125.         PRINT "  "
  126.         LOCATE Y+1,1:PRINT FND$(D(TM,8));FNTB$(4);LEFT$(A$(LE,TM),7);D(TM,1);
  127.         PRINT FNTB$(15);FND$(D(TM,2));FNTB$(18);FND$(D(TM,3));FNTB$(21);FND$(D(TM,4));
  128.         PRINT FNTB$(24);FND$(D(TM,5));FNTB$(27);FND$(D(TM,6));FNTB$(30);FND$(D(TM,7))
  129.         RETURN 
  130.  
  131. ' ---------------------
  132.  
  133. 70        CLS:COLOR hdg
  134.         LOCATE 1,1
  135.         PRINT "S Q U A D  I N F O R M A T I O N"
  136.         PRINT "NO S T NAME     A  F AG P G  AP"
  137. 90        FOR N=1 TO 22:COLOR txt
  138. 91              IF MID$(e$,n,1)="P" THEN COLOR 7
  139. 92              IF MID$(e$,n,1)="S" THEN COLOR 6
  140. 93              IF MID$(e$,n,1)="I" THEN COLOR 5
  141.  
  142. 100            ZZ=N
  143.             GOSUB 9140
  144.             IF MID$(F$,N,1)="G" OR MID$(F$,N,1)="M"
  145.                 LOCATE N+2,30:PRINT "  "
  146.             END IF
  147. 120            LOCATE N+2,1:PRINT CHR$(N+64);FNTB$(4);MID$(E$,N,1);" ";MID$(f$,n,1);
  148.             PRINT FNTB$(8);MID$(B$(N),1,8);" ";FND$(Z3);"  ";FND$(Z4);" ";FND$(Z5);" ";MID$(P$,N,1);"    "
  149.             IF i(3,n) > 0 THEN
  150.                  LOCATE N+2,27:PRINT FND$(i(3,n))
  151.             END IF
  152. 121            IF F(N) > 0 THEN
  153.                  LOCATE N+2,30:PRINT FND$(F(N))
  154.              END IF
  155. 130        NEXT N
  156.         IF Q=9 THEN RETURN 
  157. 140        GOSUB click:GOTO 5000
  158.  
  159. ' ---------------------
  160.  
  161. 200        IF MA>44 OR fnr(10)+1>5 THEN RETURN 
  162. 220        CLS
  163.         FOR N=1 TO 10
  164.             PP=fnr(20)+1
  165.             ZZ=PP
  166.             GOSUB 9140
  167.             IF N<10 AND (T$(PP)="T" OR i(2,pp)=0) THEN N=10
  168. 224        NEXT N
  169.           IF B$(PP)="RESERVE   " THEN 220
  170. 230        DM=LE
  171.         ZZ=PP
  172.         GOSUB 9140
  173.         Q=9
  174.         GOSUB 6230
  175.         Q=0
  176. 290        T3=CO
  177.         T1=(LE-1)+fnr(2)
  178.         T2=fnr(19)+2
  179.         IF T1<1 OR T1>5 THEN 290
  180. 301        X=fnr(70)+40
  181.         T3=INT(T3/100)
  182.         T3=(INT(T3*(X/100)))*100
  183.         IF i(1,N)>0 THEN T3=T3/5*2
  184. 310        COLOR 4:DT=0
  185.         LOCATE 4,1:PRINT A$(T1,T2);" Offer £";FND$(T3);" FOR"
  186.                 PRINT:PRINT B$(PP)
  187.                 Y$=MID$(F$,PP,1)
  188.                 x$="G/KEEPER":IF Y$="D" THEN X$="DEFENDER"
  189.                 IF Y$="M" THEN X$="MIDFIELDER"
  190.                 IF Y$="F" THEN X$="FORWARD"
  191.         PRINT:PRINT X$
  192.                 x$=MID$(E$,PP,1):IF x$=" " THEN x$="O.K."
  193.                 PRINT:PRINT "Current status : ";x$
  194. 311        GOSUB 9140
  195.         Q=0
  196.         PRINT:PRINT "Skill =";FND$(Z3);" Form =";FND$(Z4);" Age =";FND$(Z5)
  197.                 IF fnr(20)+1>18 AND i(2,pp)<>0 THEN
  198.             DT=1:T$(PP)="D":PRINT:i(2,pp)=0
  199.             LOCATE 19,1:PRINT "AFTER PLAYER DEMANDS TRANSFER"
  200.         END IF
  201.         IF dt=0 THEN GOSUB 2000
  202.         IF FG=9
  203.             FG=0
  204.             GOTO 340
  205.         END IF
  206. 320        COLOR 2:LOCATE 25,1:PRINT "DO YOU ACCEPT Y/N ?"
  207.         x$="":DO WHILE x$<>"y" AND x$<>"n"
  208.                 x$=INKEY$
  209.                 LOOP:LOCATE 25,1:PRINT SPACE$(28)
  210.         IF x$="n" THEN 390
  211. 330        IF fnr(Z3)+1>fnr(12)+1
  212.                         COLOR 5
  213.             LOCATE 21,1:PRINT "PLAYER UNABLE TO AGREE PERSONAL" 
  214.             PRINT TAB(1);"TERMS WITH ";A$(T1,T2)
  215.                         GOSUB click
  216.             GOTO 380
  217.         END IF
  218. 340        IF DT=0 THEN LOCATE 21,1:COLOR 5:PRINT "PLAYER TRANSFERRED"
  219.         GOSUB wait_while:GOSUB wait_while
  220. 350        B&(PP)=(6-LE)*1000+100+fnr(8)+18
  221.         B&(PP)=B&(PP)*10+(fnr(5))
  222.         B&(PP)=B&(PP)*1000
  223.         i(1,PP)=0:i(2,pp)=1:i(3,pp)=0
  224.         T(PP)=0
  225.         F(PP)=0
  226.         STRSET B$(PP),"RESERVE"
  227.         MO=MO+T3
  228. 351        MID$(P$,PP,1)="0"
  229.         MID$(E$,PP,1)=" "
  230.         B&(PP)=B&(PP)+100
  231.         T$(PP)=" "
  232.         GOSUB 9140
  233.         LY=LE
  234.         GOSUB 9350
  235.         E(PP)=INT(T*0.0065):E(pp)=E(pp)*100
  236. 380        RETURN 
  237. 390        IF B&(PP)>30000000 AND DT=1 THEN B&(PP)=B&(PP)-20000000
  238. 395        GOTO 380
  239.  
  240. ' ---------------------
  241.  
  242. 430        X=0
  243.         GOSUB 475
  244.         IF HR<2 OR QQ=0 THEN RETURN 
  245. 431        OF=CO:X=(fnr(40)+80)/100
  246.         CO=INT((CO/100)*X)*100:OF=CO
  247.                 x=INT(CO*.15)
  248.                 CO=CO-x
  249.                 IF INT(RND*3)+1>1 THEN co=co+x+x
  250. 432        COLOR 7:LOCATE 24,1 PRINT "OFFER £";INT(OF)
  251.                 COLOR 2:LOCATE 25,1:PRINT "(H)IGHER  (L)OWER OR (O)FFER"
  252.                 X$="":DO WHILE X$<>"h" AND X$<>"l" AND X$<>"o"
  253.                 X$=INKEY$
  254.                 LOOP
  255.                 IF X$="h" THEN OF=OF+10000:GOTO 432
  256.                 IF X$="l" AND OF>19999 THEN OF=OF-10000:GOTO 432
  257.                 IF x$="l" AND OF<20000 THEN 432
  258. 433            HR=HR-1
  259.         IF OF<CO
  260.                         LOCATE 24,1:PRINT SPACE$(30):PRINT SPACE$(30)
  261.             LOCATE 25,1:PRINT "OFFER TOO LOW"
  262.                         GOSUB WAIT_WHILE
  263.             GOSUB WAIT_WHILE
  264.             GOTO 473
  265.         END IF
  266. 434        Z=OF
  267.         IF Z>MO
  268.                         LOCATE 24,1:PRINT SPACE$(30):PRINT SPACE$(30)
  269.             LOCATE 25,1:PRINT "YOU NEED A LOAN"
  270.             GOSUB WAIT_WHILE
  271.             GOSUB WAIT_WHILE
  272.             GOTO 473
  273.         END IF
  274. 435        LY=DM
  275.         QQ=9
  276.         GOSUB 3050
  277.         QQ=0
  278.         IF X=5 THEN GOTO 474
  279. 439        XT=99
  280.         T$(TS)=" "
  281.         MID$(P$,TS,1)="0"
  282.         MID$(E$,TS,1)=" "
  283.         i(1,TS)=0:IF of>rec(16) THEN rec(16)=of
  284.         Z6=0
  285.         i(3,ts)=0
  286.         IF Z5<25 THEN Z6=fnr(4)+1
  287. 460        LOCATE 24,1:PRINT SPACE$(30):PRINT SPACE$(30)
  288.                 LOCATE 25,1:PRINT "PLAYER TRANSFERRED"
  289.                 GOSUB WAIT_WHILE
  290.         GOSUB WAIT_WHILE
  291.         STRSET B$(TS),SPACE$(10)
  292.         E(TS)=Z
  293.                 N=TS
  294.                 Q=9:GOSUB 8815:Q=0
  295. 461        B&(TS)=(INT(B&(TS)/100))*100
  296.                 T(TS)=0
  297.                 MO=MO-OF
  298.          F(TS)=0
  299. 462        X=fnr(100)+1
  300.         C$(YZ)=C$(X)
  301.         STRSET C$(X),Y$
  302.         XZ=C&(YZ+ZM)
  303.         C&(YZ+ZM)=C&(X)
  304.         C&(X)=XZ
  305. 473        GOSUB WAIT_WHILE
  306.         LOCATE 24,1:PRINT SPACE$(30)
  307.                 PRINT SPACE$(30):PRINT SPACE$(30)
  308. 474        RETURN 
  309.  
  310. ' ---------------------
  311.  
  312. 475        QQ=0
  313.         FOR N=1 TO 22
  314.             IF B$(N)="RESERVE   " AND MID$(H$,PP,1)=MID$(F$,N,1)
  315.                 QQ=9
  316.                 TS=N
  317.                 N=20
  318.             END IF
  319. 479        NEXT N
  320.         RETURN 
  321.  
  322. ' ---------------------
  323.  
  324. 480        IF LM<2 THEN RETURN 
  325. 490        COLOR 2:LOCATE 24,1:PRINT "DIVISION":Q=8
  326.         GOSUB 9100
  327. 500        F=z:COLOR hdg
  328.                 x$="PREMIER":IF f=2 THEN x$="DIVISION 1"
  329.                 IF f=3 THEN x$="DIVISION 2"
  330.                 IF f=4 THEN x$="DIVISION 3"
  331.                 IF f=5 THEN x$="NON LEAGUE"
  332.         LOCATE 1,14:PRINT x$
  333.         GOSUB 1
  334.         COLOR txt:GOSUB 525
  335.                 LOCATE 24,1:PRINT SPACE$(20)
  336.         IF QQ=9 THEN RETURN 
  337. 510        GOSUB click
  338. 520        GOSUB CLEAR_RIGHT_WINDOW
  339.         RETURN 
  340.  
  341.  
  342.  
  343. ' ---------------------
  344.  
  345. 525        FOR Q=20 TO 1 STEP -1
  346. 537            S(F,W(Q,2),3)=21-Q
  347.                         COLOR txt
  348.                         IF f=1 AND (21-q=1 OR 21-q>17) THEN COLOR 1
  349.                         IF f>1 AND (21-q<4 OR 21-q>17) THEN COLOR 1
  350.                         IF f=5 AND 21-q<>1 THEN COLOR txt
  351.                         IF f=4 AND 21-q>10 AND 21-q<>20 THEN COLOR txt
  352.             LOCATE 22-Q,14:PRINT  FND$(21-Q);FNTB$(17);LEFT$(A$(Z,W(Q,2)),8);" ";
  353.             PRINT FND$(S(Z,W(Q,2),1));FNTB$(30);FND$(S(Z,W(Q,2),2))
  354. 538        NEXT Q
  355.         RETURN 
  356.  
  357. ' ---------------------
  358.  
  359. 540            LOCATE 1,13:COLOR hdg
  360.         PRINT "     OPTIONS      "
  361. 545        DATA "AUTO RESULTS","RESULT ONLY","SAVE GAME"
  362.         DATA "LOAD GAME","RETURN"
  363. 550        RESTORE 545
  364.         CC=5:COLOR txt
  365.         FOR N=1 TO 5
  366.             READ  X$
  367.             LOCATE CC,14:PRINT FND$(N);" ";X$;
  368.             CC=CC+2
  369. 555            IF N<3 THEN PRINT FNTB$(30);FND$(O(N))
  370. 568        NEXT N
  371.         YY=5
  372.         Q=8
  373.         GOSUB 9100
  374.         IF Z=5 OR (SE=1 AND Z=3 AND D(1,1)<1) THEN clear_right_window
  375. 570        IF z=3
  376.                 LOCATE 25,1:PRINT "SAVE GAME Y/N ?"
  377.                 x$="":DO WHILE x$<>"y" AND x$<>"n"
  378.                 x$=INKEY$
  379.                 LOOP
  380.              IF x$="y" THEN GOSUB save_game
  381.         END IF
  382. 572        IF z=4
  383.                 LOCATE 25,1:PRINT "LOAD GAME Y/N ?"
  384.                 x$="":DO WHILE x$<>"y" AND x$<>"n"
  385.                 x$=INKEY$
  386.                 LOOP
  387.              IF x$="y" THEN GOSUB load_game:LOCATE 1,1:COLOR 4:PRINT "[HOURS = ";FND$(HR);"] "
  388.         END IF
  389. 573        IF z<3 THEN O(z)=O(z)+1
  390.         IF O(z)=2 THEN O(z)=0
  391.         GOTO 540
  392.  
  393. ' ---------------------
  394.  
  395. save_game:
  396.     LOCATE 25,1:COLOR 2
  397.     PRINT "Writing Data to disk...   "
  398.     OPEN "PLAYER.INFO" FOR OUTPUT AS #1
  399.     WRITE #1,SK,DI,SE,LE,CL,MA,RE,R1,R2,LG,LM,MO,ST,PS,HR
  400.     WRITE #1,MW,MS,FLG,REFG,B,C,K$,O,R,J$,FS,FAD,FAT,LCD,LCT
  401.     WRITE #1,IR,A2,B2,OV,MFG,ATT,X$,IC,RMC,SPEED
  402.         FOR n=1 TO 70:FOR s=1 TO 6:WRITE #1,res%(n,s):NEXT:NEXT
  403.     FOR I_ONE = 1 TO 5            ' ** A$ **
  404.         FOR I_TWO = 1 TO 20
  405.             WRITE #1,A$(I_ONE,I_TWO)
  406.         NEXT I_TWO
  407.     NEXT I_ONE
  408.  
  409.     WRITE #1,C$
  410.  
  411.     FOR I_ONE = 1 TO 5                ' ** A **
  412.         FOR I_TWO = 1 TO 20
  413.             WRITE #1,A&(I_ONE,I_TWO)
  414.         NEXT I_TWO
  415.     NEXT I_ONE
  416.  
  417.  
  418.  
  419.     WRITE #1,C&
  420.  
  421.     FOR I_ONE = 1 TO 20
  422.         FOR I_TWO = 1 TO 8
  423.             WRITE #1,D(I_ONE,I_TWO)    ' ** D **
  424.         NEXT I_TWO
  425.     NEXT I_ONE
  426.  
  427.     WRITE #1,V$,E,E$,F$
  428.  
  429.     FOR I_ONE = 1 TO 20            ' ** W **
  430.         FOR I_TWO = 1 TO 2
  431.             WRITE #1,W(I_ONE,I_TWO)
  432.         NEXT I_TWO
  433.     NEXT I_ONE
  434.  
  435.     WRITE #1,I,T$,O,P$,T,F,H$,H
  436.  
  437.     FOR I_ONE = 1 TO 5            ' ** S **
  438.         FOR I_TWO = 1 TO 20
  439.             FOR I_THREE = 1 TO 3
  440.                 WRITE #1,S(I_ONE,I_TWO,I_THREE)
  441.             NEXT I_THREE
  442.         NEXT I_TWO
  443.     NEXT I_ONE
  444.  
  445.     FOR I_ONE = 1 TO 22            ' ** B$ **
  446.         WRITE #1,B$(I_ONE)
  447.     NEXT I_ONE
  448.  
  449.     FOR I_ONE = 1 TO 22            ' ** B **
  450.         WRITE #1,B&(I_ONE)
  451.     NEXT I_ONE
  452.  
  453.     FOR I_ONE = 1 TO 4            ' ** O **
  454.         WRITE #1,O(I_ONE)
  455.     NEXT I_ONE
  456.  
  457.     FOR I_ONE = 1 TO 22
  458.         WRITE #1,E(I_ONE)        ' ** E **
  459.         WRITE #1,F(I_ONE)        ' ** F **
  460.         WRITE #1,T(I_ONE)        ' ** T **
  461.     NEXT I_ONE
  462.         FOR n= 1 TO 3:FOR d=1 TO 22:WRITE #1,i(n,d):NEXT:NEXT
  463.  
  464.     FOR I_ONE = 1 TO 22
  465.         WRITE #1,T$(I_ONE)        ' ** T$ **
  466.      NEXT I_ONE
  467.         FOR n=1 TO 87:FOR s=1 TO 6:WRITE #1,l(n,s):NEXT:NEXT
  468.         FOR n=1 TO 64:FOR s=1 TO 3:WRITE #1,cup%(n,s):NEXT:NEXT
  469.         FOR n=1 TO 16:WRITE #1,rec(n):NEXT
  470.         FOR n=1 TO 5:WRITE #1,rst(n):NEXT
  471.         WRITE #1,rec$(1),rec$(2)
  472.     WRITE #1,M$                    ' ** MANAGERS NAME **
  473.  
  474.     WRITE #1,LO,MM
  475.     
  476.     CLOSE #1
  477.     LOCATE 22,1
  478.     PRINT "                           "
  479.     GOSUB clear_right_window
  480.         RETURN
  481. ' ---------------------
  482. load_game:
  483.  
  484.     LOCATE 25,1:COLOR 2
  485.     PRINT "Reading Data from disk...   "
  486.  
  487.     OPEN "PLAYER.INFO" FOR INPUT AS #1
  488.     INPUT #1,SK,DI,SE,LE,CL,MA,RE,R1,R2,LG,LM,MO,ST,PS,HR
  489.     INPUT #1,MW,MS,FLG,REFG,B,C,K$,O,R,J$,FS,FAD,FAT,LCD,LCT
  490.     INPUT #1,IR,A2,B2,OV,MFG,ATT,X$,IC,RMC,SPEED
  491.         FOR n=1 TO 70:FOR s=1 TO 6:INPUT #1,res%(n,s):NEXT:NEXT
  492.     FOR I_ONE = 1 TO 5            ' ** A$ **
  493.         FOR I_TWO = 1 TO 20
  494.             INPUT #1,A$(I_ONE,I_TWO)
  495.         NEXT I_TWO
  496.     NEXT I_ONE
  497.  
  498.     INPUT #1,C$
  499.  
  500.     FOR I_ONE = 1 TO 5                ' ** A **
  501.         FOR I_TWO = 1 TO 20
  502.             INPUT #1,A&(I_ONE,I_TWO)
  503.         NEXT I_TWO
  504.     NEXT I_ONE
  505.  
  506.     INPUT #1,C&
  507.  
  508.     FOR I_ONE = 1 TO 20
  509.         FOR I_TWO = 1 TO 8
  510.             INPUT #1,D(I_ONE,I_TWO)    ' ** D **
  511.         NEXT I_TWO
  512.     NEXT I_ONE
  513.  
  514.     INPUT #1,V$,E,E$,F$
  515.  
  516.     FOR I_ONE = 1 TO 20            ' ** W **
  517.         FOR I_TWO = 1 TO 2
  518.             INPUT #1,W(I_ONE,I_TWO)
  519.         NEXT I_TWO
  520.     NEXT I_ONE
  521.  
  522.     INPUT #1,I,T$,O,P$,T,F,H$,H
  523.  
  524.     FOR I_ONE = 1 TO 5            ' ** S **
  525.         FOR I_TWO = 1 TO 20
  526.             FOR I_THREE = 1 TO 3
  527.                     INPUT #1,S(I_ONE,I_TWO,I_THREE)
  528.             NEXT I_THREE
  529.         NEXT I_TWO
  530.     NEXT I_ONE
  531.  
  532.     FOR I_ONE = 1 TO 22            ' ** B$ **
  533.         INPUT #1,B$(I_ONE)
  534.     NEXT I_ONE
  535.  
  536.     FOR I_ONE = 1 TO 22            ' ** B **
  537.         INPUT #1,B&(I_ONE)
  538.     NEXT I_ONE
  539.  
  540.     FOR I_ONE = 1 TO 4            ' ** O **
  541.         INPUT #1,O(I_ONE)
  542.     NEXT I_ONE
  543.  
  544.     FOR I_ONE = 1 TO 22
  545.         INPUT #1,E(I_ONE)        ' ** E **
  546.         INPUT #1,F(I_ONE)        ' ** F **
  547.         INPUT #1,T(I_ONE)        ' ** T **
  548.     NEXT I_ONE
  549.         FOR n= 1 TO 3:FOR d=1 TO 22:INPUT #1,i(n,d):NEXT:NEXT
  550.  
  551.     FOR I_ONE = 1 TO 22
  552.         INPUT #1,T$(I_ONE)        ' ** T$ **
  553.     NEXT I_ONE
  554.         FOR n=1 TO 87:FOR s=1 TO 6:INPUT #1,l(n,s):NEXT:NEXT
  555.         FOR n=1 TO 64:FOR s=1 TO 3:INPUT #1,cup%(n,s):NEXT:NEXT        
  556.         FOR n=1 TO 16:INPUT #1,rec(n):NEXT
  557.         FOR n=1 TO 5:INPUT #1,rst(n):NEXT
  558.         INPUT #1,rec$(1),rec$(2)
  559.     INPUT #1,M$                ' ** MANAGERS NAME **
  560.  
  561.     INPUT #1,LO,MM
  562.  
  563.     CLOSE #1
  564.     LOCATE 22,1
  565.     PRINT "                           "
  566.     GOSUB clear_right_window
  567.         RETURN
  568. ' ---------------------
  569.  
  570. i620:
  571.         GOSUB 8200
  572.         CLS:COLOR 1,0,1
  573.         LOCATE 3,3
  574.         PRINT "TREBLE CHAMPIONS II OPTIONS"
  575.  
  576. i630:           LOCATE 24,3:COLOR 2
  577.         PRINT "Select SKILL LEVEL 1 to 3"
  578.                 x=0:DO WHILE x<1 OR x>3
  579.                 x$=INKEY$:x=VAL(x$)
  580.                 LOOP
  581.         di=x
  582.         LOCATE 7,3:COLOR 3:PRINT "Skill Level:";x
  583. i640:           LOCATE 24,3:COLOR 2
  584.         PRINT "Select DIFFICULTY 1 to 5  "
  585.                 x=0:DO WHILE x<1 OR x>5
  586.                 x$=INKEY$:x=VAL(x$)
  587.                 LOOP
  588.                 sk=x
  589.                 LOCATE 9,3:COLOR 3:PRINT "Difficulty :";x
  590. i650:           COLOR 2:m$="":DO WHILE LEN(m$)<1 OR LEN(m$)>15
  591.                 LOCATE 22,3:PRINT "MANAGER'S NAME (15 Chrs)"
  592.                 LOCATE 24,1:PRINT SPACE$(38)
  593.                 LOCATE 24,3:INPUT m$
  594.                 LOOP
  595.                 LOCATE 22,1:PRINT SPACE$(38)
  596.                 LOCATE 24,1:PRINT SPACE$(38):m$=UCASE$(m$)
  597.                 LOCATE 11,3:COLOR 3:PRINT "Manager    : "m$
  598. i660:    
  599.         LE=SK
  600.         LY=LE:GOSUB c100
  601.         FOR N=1 TO 22
  602.             Z=(SK-1)+(DI-1)
  603.             X$=FND$(B&(N))
  604.             ZZ=VAL(LEFT$(X$,1))
  605.             ZZ=ZZ-Z
  606.             IF ZZ>3 THEN ZZ=ZZ-1
  607. i670:        Z$=FND$(ZZ)
  608.             MID$(X$,1,1)=Z$
  609.             B&(N)=VAL (X$)
  610. i675:        ZZ=N
  611.             GOSUB 9140
  612.             i(2,n)=INT(RND*5)+1:ZM=i(2,n)
  613.             GOSUB 9350
  614.             E(N)=T
  615. i680:    NEXT N
  616. i690:    MO=((6-SK)*10000)*(4-DI)
  617.         ST=0
  618.         MS=((6-SK)*5000)+((3-DI)*1000)
  619. i703:    B=0
  620.         C=0
  621.         IF LE=3 OR LE=4 THEN 
  622.             b=fnr(2)+3
  623.             c=fnr(19)+2
  624.         END IF
  625. i705:    IF LE<5 AND LG=2 OR MA=1
  626.             K$="HOME TO "
  627.             IF fnr(2)+1=2 THEN K$="AWAY TO "
  628.         END IF
  629. i706:    
  630. i707:    IF CP=3 AND R1>6 THEN J$="NEUTRAL "
  631. i708:    IF CP=2 AND R2>6 THEN K$="NEUTRAL "
  632. i710:    IF Q<>0 THEN RETURN 
  633. i715:    HR=14-(DI*2)
  634.         HR=HR*3
  635.         IF LE=5 THEN ST=2
  636. i716:   x=6-LE:rst(1)=x*2000:rst(2)=x*1500
  637.         rst(3)=x:rst(4)=x*2:rst(5)=x
  638. i718:    FOR N=1 TO 5
  639.         FOR F=1 TO 20
  640.             S(N,F,3)=fnr(20)+1
  641.         NEXT F
  642.     NEXT N
  643.     GOTO 5000
  644.  
  645.  
  646. ' ---------------------
  647.  
  648. 620        X=0
  649.         FOR N=1 TO 22
  650.             IF MID$(E$,N,1)="I" OR MID$(E$,N,1)="1" OR MID$(E$,N,1)="2" THEN X=X+1
  651. 630            IF X>6 AND MID$(E$,N,1) <> "P"
  652.                 MID$ (E$,N,1) = " "
  653.                 i(1,N)=0
  654.             END IF
  655. 640        NEXT N
  656.         RETURN
  657.  
  658. ' ---------------------
  659.  
  660. 650        TE=1
  661.         FOR N=1 TO 20
  662.             IF A$(LE,N)=W$ THEN TE=N
  663. 660        NEXT N
  664.         IF TE=1 THEN 675
  665. 670        Y$=A$(LE,1)
  666.         STRSET A$(LE,1),W$
  667.         STRSET A$(LE,TE),Y$
  668. 675        RETURN
  669.  
  670. ' ---------------------
  671.  
  672. 680        MHT=1
  673.         MHL=LE
  674.         MAT=OP
  675.         MAL=LY
  676. 690        IF (CP=3 AND J$="AWAY TO ") OR (CP=2 AND K$="AWAY TO ")
  677.             MHT=OP
  678.             MHL=LY
  679.             MAT=1
  680.             MAL=LE
  681.         END IF
  682. 700        RETURN
  683.  
  684. ' ---------------------
  685.  
  686. 703        B=0
  687.         C=0
  688.         IF LE=3 OR LE=4
  689.             B=INT (RND(1) *2)+3
  690.             C=INT (RND(1) *19)+2
  691.         END IF
  692. 705        IF LG=2 OR MA=1
  693.             K$="HOME TO "
  694.             IF fnr(2)+1=2 THEN K$="AWAY TO "
  695.         END IF
  696. 706        
  697. 707        IF CP=3 AND R1>6 THEN J$="NEUTRAL "
  698. 708        IF CP=2 AND R2>6 THEN K$="NEUTRAL "
  699. 710        RETURN
  700.  
  701. ' ---------------------
  702.  
  703. 725        GOSUB 8020
  704. 727        IF CP=3
  705.             Q=9
  706.             GOSUB 706
  707.         END IF
  708. 728        IF CP=2
  709.             Q=7
  710.             GOSUB 705
  711.         END IF
  712. 760        RETURN 
  713.  
  714. ' ---------------------
  715.  
  716. 800        T=0
  717.         CC=0
  718.         S=0
  719.         FOR N=1 TO 22
  720.             IF MID$(E$,N,1)="P" THEN T=T+1
  721. 801            IF MID$(E$,N,1)="S" THEN MID$(E$,N,1)=" "
  722. 802            IF MID$(E$,N,1)="I" OR MID$(E$,N,1)="1" OR MID$(E$,N,1)="2" THEN CC=CC+1
  723. 805        NEXT N
  724.         GOSUB 620
  725.         Q=9
  726.         GOSUB 70
  727.         Q=0
  728.         GOSUB 880
  729.         IF T>10 THEN 826
  730. 820    '    PRINT T
  731.         
  732.         sub$=" PICK PLAYER"
  733.         Q=7
  734.         GOSUB 9500:z=z-32:sub$=""
  735.         IF MID$(E$,Z,1)="I" OR MID$(E$,Z,1)="1" OR MID$(E$,Z,1)="2" OR MID$(E$,Z,1)="P" OR i(1,Z)>0 THEN 820
  736. 825        MID$(E$,Z,1)="P"
  737.                 q=9:GOSUB 90:q=0
  738.         T=T+1
  739.         GOSUB 880
  740.  
  741. 826            sc=0:IF T=11
  742.                 LOCATE 25,1:COLOR 2:PRINT "FINAL TEAM Y/N ?          "
  743.                 x$=" ":DO WHILE x$<>"y" AND x$<>"n"
  744.                 x$=INKEY$
  745.                 LOOP
  746.                 IF x$<>"y" THEN GOSUB 890:sc=1
  747.                 END IF
  748.                 IF sc=1 THEN 820
  749. 827        IF T<11 THEN 820
  750. 830        IF S>1 THEN 850
  751. 835        
  752.         sub$=" PICK SUB"
  753.         Q=7
  754.         GOSUB 9500:z=z-32:sub$=""
  755.  
  756.         IF MID$(E$,Z,1)="I" OR MID$(E$,Z,1)="1" OR MID$(E$,Z,1)="2" OR MID$(E$,Z,1)="P" OR MID$(E$,Z,1)="S" OR i(1,Z)>0
  757.             GOTO 835
  758.         END IF
  759. 840        MID$(E$,Z,1)="S"
  760.                 q=9:GOSUB 90:q=0
  761.         S=S+1
  762.         GOSUB 880
  763.         IF S<2 THEN 835
  764. 850        GOSUB 900
  765.         RETURN 
  766.  
  767. ' ---------------------
  768. 880             COLOR 2:LOCATE 1,1:PRINT SPACE$(32)
  769.         LOCATE 1,1:PRINT "PLAYERS PICKED -";FND$(T);" ";FNTB$(25);"SUBS -";FND$(S)
  770.         RETURN 
  771.  
  772. ' ---------------------
  773.  
  774. 890        sub$=" DROP PLAYER"
  775.         Q=7
  776.         GOSUB 9500:z=z-32:sub$=""
  777.         IF MID$(E$,Z,1)<>"P" THEN 890
  778. 895        MID$(E$,Z,1)=" "
  779.         q=9:GOSUB 90:q=0
  780.         T=T-1
  781.         GOSUB 880
  782.         RETURN 
  783.  
  784. ' ---------------------
  785.  
  786. 900        REDIM W(20,2)
  787.         SW1=0
  788.         SW2=0
  789.         SX=0
  790.         M1=0
  791.         CLS:COLOR hdg
  792.         IF CP=1
  793.             W$="HOME TO "
  794.             IF MHT<>1 THEN W$="AWAY TO "
  795.         END IF
  796. 901        IF CP>1 THEN GOSUB 680
  797. 902        
  798.         LOCATE 1,1
  799.           game$=" "+A$(LE,1)+" "+W$+" "+A$(LY,OP)+" "
  800.         PRINT game$
  801. 904        Z1=LY
  802.         Z2=OP
  803.         GOSUB 9120
  804.         XM=Z1+(Z2-1)+Z3-Z4+Z6
  805.         ZM=Z4:XY=Z3
  806.  
  807. 905        FOR G=1 TO 2
  808.             QW=20
  809. 908            IF G=1
  810.                 Q=9
  811.                 GOSUB 2700
  812.                 Q=0
  813.             END IF
  814. 910            IF G=2
  815.                 Y=0
  816.                 FOR N=XM TO (XM+(ZM*14)) STEP ZM
  817.                     Y=Y+1
  818.                     H(Y)=N
  819. 913                NEXT N
  820.             END IF
  821.             IF G=2
  822.                 GOSUB 981
  823.                 M1=16
  824.                 GOTO 979
  825.             END IF
  826. 918            ' NEXT N
  827. 930            FOR N=1 TO 22
  828.                 IF MID$(E$,N,1)<>"P" THEN 950
  829. 932                ZZ=N
  830.                 GOSUB 9140
  831.                 Y$=MID$(F$,N,1)
  832. 940                IF Y$="G" THEN W(1,G)=Z3
  833. 942                IF Y$="D" THEN W(2,G)=W(2,G)+Z3
  834. 943                IF Y$="M" THEN W(3,G)=W(3,G)+Z3
  835. 944                IF Y$="F" THEN W(4,G)=W(4,G)+Z3
  836. 946                W(5,G)=W(5,G)+Z4
  837. 947                IF Q=9 THEN RETURN 
  838. 950            NEXT N
  839.             IF Q=7 THEN RETURN 
  840. 979        NEXT G
  841. 980
  842.         GOSUB click
  843.         RETURN 
  844.  
  845. ' ---------------------
  846.  
  847. 981        FOR N=1 TO 5
  848.             W(N,2)=0
  849.         NEXT N
  850.         G=2
  851.         ZY=ZM-1
  852.         IF SX=0
  853.             SELECT CASE ZY
  854.                 CASE 1
  855.                     RESTORE 990            ' POINT TO CORRECT DATA SCRUCTURE
  856.                 CASE 2
  857.                     RESTORE 992
  858.                 CASE 3
  859.                     RESTORE 994
  860.                 CASE ELSE
  861.                     PRINT "BAD VALUE OF ZY AT LINE 981"
  862.                 STOP
  863.             END SELECT
  864.             RES=(990+(ZY*2))-2
  865.         END IF
  866. 982        GOSUB 996
  867.         Y=2
  868.         FOR N=1 TO 15
  869.             IF Y > 12 THEN COLOR 4
  870. 984            IF Y > 12 AND (N =SB1 OR N =SB2) THEN 987
  871. 985            IF Y < 13 AND N=N1 OR N=N2 OR N=SB1 OR N=SB2 OR N=SW1 OR N=SW2 THEN 988
  872. 986            IF Y > 12 THEN 988
  873. 987            ZZ=H(N)+ZM
  874.              GOSUB 9130
  875.             Z3=Z3+INT(XY/1.55)
  876.             LOCATE Y,17:IF y<13 THEN COLOR 7
  877.             PRINT MID$(H$,N,1);"  ";C$(H(N));" ";fnd$(Z3)
  878.             Y=Y+1
  879.             IF Y<14
  880.                 Y$=MID$(H$,N,1)
  881.                 Q=9
  882.                 GOSUB 940
  883.                 Q=0
  884.             END IF
  885. 988            IF Y=13 AND Q=0
  886.                 N=1
  887.                 Q=9
  888.             END IF
  889. 989             NEXT N
  890.         Q=0
  891.         RETURN 
  892.  
  893. ' ---------------------
  894.  
  895. 990        DATA 9,3,15,7,8,14
  896. 992        DATA 7,12,13,10,3,14
  897. 994        DATA 6,10,14,4,2,8
  898. 996        IF FG<>88
  899.             IF RES=0
  900.                 PRINT "BAD VALUE OF RES AT LINE 996"
  901.                 STOP
  902.             END IF
  903.             ' RESTORE RES
  904.             READ K
  905.             N1=K
  906.             READ K
  907.             N2=K
  908.             READ K
  909.             ST1=K
  910.             READ K
  911.             ST2=K
  912.             IF SX=0
  913.                 READ K
  914.                 SB1=K
  915.                 READ K
  916.                 SB2=K
  917.             END IF
  918.         END IF
  919. 997        RETURN 
  920.  
  921. ' ---------------------
  922.  
  923. 1000    COLOR 7:IP=0
  924.         PL=0
  925.         MA=1
  926.         R1=2
  927.         R2=1
  928.         FOR i_one = 1 TO 22
  929.             f(i_one)=0
  930.         NEXT i_one
  931.         RE=0
  932.         LG=1
  933.         SE=SE+1
  934.         OT=0
  935.         MM=0
  936.         ST=0
  937.         IF LE=5 THEN ST=2
  938. 1005    rec(1)=0:rec(3)=0:rec(5)=0:rec(7)=0:rec(9)=0
  939. 1010    NT=0
  940.         ATT=0
  941.         FS=1
  942.         MW=0
  943.         CLS
  944. 1020    FOR N=1 TO 5
  945.             FOR F=1 TO 20
  946.                 Z1=N
  947.                 Z2=F
  948.                 GOSUB 9120
  949.                 Z5=0
  950.                 Z=(Z3*10000)+(Z4*1000)+(Z5*100)+fnr(10)+1
  951.                 A&(N,F)=Z
  952.                 S(N,F,3)=fnr(20)+1
  953.             NEXT F
  954.         NEXT N
  955.         GOSUB 8200
  956. 1032    HR=14-(DI*2)
  957.         HR=HR*3
  958. 1040    FOR N=1 TO 22
  959.             ZZ=N:i(3,n)=0
  960.             GOSUB 9140
  961.             Z5=Z5+1
  962.             Z4=fnr(5)+1
  963.             i(2,n)=i(2,n)-1
  964.             IF Z5>34
  965.                 Z5=fnr(7)+18
  966.                 STRSET B$(ZZ),"RESERVE"
  967.                 Z3= 6-LE
  968.                 Z6=fnr(5)
  969.                 LY=LE
  970.                 GOSUB 9350
  971.                 E(N)=T
  972.             END IF
  973. 1041        IF i(2,n)<0 THEN i(2,n)=0
  974.         IF i(2,n)>5 THEN i(2,n)=5
  975. 1042        IF Z5>30 AND Z3>1 AND fnr(10)+1>4 THEN Z3=Z3-1
  976. 1044        Z=(Z3*10000000)+(Z4*1000000)+(Z5*10000)+(Z6*1000)
  977.             B&(N)=Z
  978.             IF Q=9 THEN RETURN 
  979. 1045        IF MID$(E$,N,1)="I" THEN MID$(E$,N,1)=" "
  980. 1046        IF T$(N)<>"TD" THEN T$(N)=" "
  981.             i(1,N)=0
  982. 1050    NEXT N
  983.         XX=(((6-OLD)*(21-OLDP))*((6-OLD)*50))*30
  984.         CLS
  985.         LOCATE 8,5:PRINT "SEASON TICKET SALES :"
  986.         LOCATE 11,5:PRINT "£";fnd$(XX)
  987.         MO=MO+XX:O=0:R=0
  988.         GOTO 1200
  989.  
  990. ' ---------------------
  991.  
  992. 1090    OLD=LE
  993.     FOR V=1 TO 5
  994.             CLS
  995.             IF V<>LE
  996.                 
  997.                 LOCATE 1,1
  998.                  6
  999.                 PRINT "FINAL TABLES"
  1000.                 Z=V
  1001.                 F=V
  1002.                 QQ=9
  1003.                 GOSUB 500
  1004.                 QQ=0
  1005.             END IF
  1006. 1092        IF V=LE
  1007.             Q=9
  1008.             GOSUB 30
  1009.             Q=0
  1010.             FOR N=1 TO 20
  1011.                 S(LE,N,3)=D(N,8)
  1012. 1093            NEXT N                    ' ** THIS DOESN'T LOOK RIGHT! **
  1013.         END IF
  1014. 1095        IF O(1)=0
  1015.            GOSUB click
  1016.         END IF
  1017. 1100    NEXT V
  1018.         FG=0
  1019.         CLS:COLOR 5
  1020.         I=0
  1021.         FOR L=1 TO 4
  1022. 1103        LOCATE 1,1:PRINT "PROMOTED TO    RELEGATED TO"
  1023. 1104        LOCATE I+2,1:COLOR 1
  1024.             PRINT " DIV ";fnd$(L);"          DIV ";fnd$(L+1)
  1025.             I=I+3
  1026. 1105        D=19
  1027.         U=2
  1028.         FOR G=1 TO 2
  1029. 1108        IF L=4 AND G=1 THEN 1160
  1030. 1110        DT=0
  1031.             FOR N=1 TO 20
  1032. 1120                IF S(L,N,3)=D
  1033.                         DT=N
  1034.                         LOCATE I,16
  1035.                         PRINT A$(L,DT),
  1036.                         N=20
  1037.                 END IF
  1038. 1121                IF FG=0 AND L=LE AND DT=1
  1039.                         LE=LE+1
  1040.                         W$=A$(L,DT)
  1041.                         FG=99
  1042.                 END IF
  1043. 1122            NEXT N
  1044. 1130            UT=0
  1045.             FOR N=1 TO 20
  1046. 1132                IF S(L+1,N,3)=U
  1047.                         UT=N
  1048.                         LOCATE I,1
  1049.                         PRINT A$(L+1,UT)
  1050.                         N=20
  1051.                 END IF
  1052. 1134                IF FG=0 AND L+1=LE AND UT=1
  1053.                         LE=LE-1
  1054.                         W$=A$(L+1,UT)
  1055.                         FG=99
  1056.                 END IF
  1057. 1140            NEXT N
  1058. 1150            Y$=A$(L,DT)
  1059.             A$(L,DT)=A$(L+1,UT)
  1060.             A$(L+1,UT)=Y$
  1061. 1152            Y=A&(L,DT)
  1062.             A&(L,DT)=A&(L+1,UT)
  1063.             A&(L+1,UT)=Y
  1064. 1160            D=D+1
  1065.             U=U-1
  1066.             I=I+1
  1067.         NEXT G
  1068. 1190        PRINT
  1069.         NEXT L
  1070.         IF O(1)=0
  1071.            GOSUB click
  1072.         END IF
  1073. 1195    OLDP=S(OLD,1,3)
  1074.         GOSUB 2900
  1075.         GOSUB 650
  1076.         REDIM S(5,20,3),res%(70,5)
  1077.         GOTO 1000
  1078. 1200    LM=1
  1079.             REDIM D(20,8)
  1080. 1250    Q=9
  1081.         GOSUB 703
  1082.         Q=0
  1083. 1260    REDIM l(87,6),cup%(64,3):GOSUB c100
  1084. 1265    x=1:FOR n=25 TO 44:cup%(n,1)=1:cup%(n,2)=x:x=x+1:NEXT
  1085.         x=1:FOR n=45 TO 64:cup%(n,1)=2:cup%(n,2)=x:x=x+1:NEXT
  1086. 1299
  1087.         GOSUB click
  1088.         GOTO 5000
  1089.  
  1090. ' ---------------------
  1091.  
  1092. 1300    IF MM<17
  1093.             HT=VAL(MID$(V$(MM+1),X,2))
  1094.             X=X+2
  1095.             OT=VAL(MID$(V$(MM+1),X,2))
  1096.         END IF
  1097.  
  1098. 1310    IF MM>16
  1099.             OT=VAL(MID$(V$(MM+1-17),X,2))
  1100.             X=X+2
  1101.             HT=VAL(MID$(V$(MM+1-17),X,2))
  1102.         END IF
  1103. 1350    RETURN 
  1104.  
  1105. ' ---------------------
  1106.  
  1107.  
  1108. i2000:    RANDOMIZE TIMER
  1109.  
  1110. i2140:            CLS:LOCATE 5,1
  1111.                 COLOR 6:PRINT "    TREBLE   CHAMPIONS  II"
  1112.                 COLOR 5:PRINT "    TREBLE   CHAMPIONS  II"
  1113.         OPEN "TEAMDATA.DAT" FOR INPUT AS #1
  1114.         FOR F=1 TO 17
  1115.             INPUT #1,V$(F)
  1116.         NEXT F
  1117.  
  1118.         FOR F=1 TO 5
  1119.             FOR N=1 TO 20
  1120.                 INPUT #1,A$(F,N)
  1121.             NEXT N
  1122.         NEXT F
  1123.         FOR F=1 TO 122
  1124.             IF F<101 THEN INPUT #1,C$(F)
  1125.             IF F>100 THEN INPUT #1,B$(F-100)
  1126.         NEXT F
  1127.         CLOSE #1
  1128. i2360:    FOR N=1 TO 5
  1129.             FOR F=1 TO 20
  1130. i2370:            A&(N,F)=INT((RND(1)* 3))+(7-N)
  1131.                 IF N<3 THEN A&(N,F)=A&(N,F)+1
  1132. i2420:            IF N=1 AND (F=1 OR F=5 OR F=6 OR F=8 OR F=15) AND A&(N,F)<8
  1133.                     A&(N,F)=8
  1134.                 END IF
  1135. i2430:            A&(N,F)=A&(N,F)*10
  1136.                 A&(N,F)=A&(N,F)+fnr(3)+2
  1137.                 A&(N,F)=A&(N,F)*1000
  1138.                 A&(N,F)=A&(N,F)+fnr(10)+1
  1139. i2440:        NEXT F
  1140.         NEXT N
  1141. i2450:    FOR N=1 TO 100
  1142.             C&(N)=fnr(3)+2
  1143.             C&(N)=C&(N)*10
  1144. i2460:        C&(N)=C&(N)+fnr(3)+3
  1145.             C&(N)=C&(N)*100
  1146. i2470:        X=fnr(15)+18
  1147.             C&(N)=C&(N)+X
  1148.             IF X<22 AND C&(N)>2000 THEN C&(N)=C&(N)-1000
  1149. i2480:    NEXT N
  1150. i2490:    MW=0:RMC=0
  1151.         FG=0
  1152.         LM=1
  1153.         R1=2
  1154.         R2=1
  1155.         Q=0
  1156.         SE=1
  1157.         MA=1
  1158.         MM=0
  1159.         RE=0
  1160.         LG=0
  1161.         CO=0
  1162.         NT=0
  1163. i2530:    FOR N=1 TO 22
  1164.             B&(N)=fnr(3)+7
  1165.             B&(N)=B&(N)*10
  1166. i2540:        B&(N)=B&(N)+fnr(5)+1
  1167.             B&(N)=B&(N)*100
  1168. i2550:        Z=fnr(18)+17
  1169.             B&(N)=B&(N)+Z
  1170.             B&(N)=B&(N)*10
  1171. i2560:        IF Z<25 THEN B&(N)=B&(N)+fnr(4)
  1172. i2562:        B&(N)=B&(N)*10
  1173.             B&(N)=B&(N)+fnr(5)+1
  1174.             B&(N)=B&(N)*100
  1175. i2570:    NEXT N
  1176. i2590:    P$=SPACE$(22)
  1177.         FOR N=1 TO 22
  1178.             MID$(F$,N,1)="G"
  1179.             IF N>2 THEN MID$(F$,N,1)="D"
  1180. i2592:        IF N>9 THEN MID$(F$,N,1)="M"
  1181. i2594:        IF N>16 THEN MID$(F$,N,1)="F"
  1182. i2596:        MID$(P$,N,1)="0"
  1183.         NEXT N
  1184. i2600:    FOR N=1 TO 15
  1185.             MID$(H$,N,1)="G"
  1186.             IF N>1
  1187.                 MID$(H$,N,1)="D"
  1188.                 MID$(E$,N,1)="P"
  1189.             END IF
  1190. i2602:        IF N>7 THEN MID$(H$,N,1)="M"
  1191. i2604:        IF N>12 THEN MID$(H$,N,1)="F"
  1192. i2605:        IF N>6 AND N<12 THEN MID$(E$,N,1)=" "
  1193. i2606:    NEXT N
  1194.         MID$(E$,18,1)="P"
  1195.         MID$(E$,19,1)="P"
  1196. i2650:  x=1:FOR n=25 TO 44:cup%(n,1)=1:cup%(n,2)=x:x=x+1:NEXT
  1197. i2652:  x=1:FOR n=45 TO 64:cup%(n,1)=2:cup%(n,2)=x:x=x+1:NEXT
  1198. i2697:    IP=0
  1199.         A2=0
  1200.         B2=0
  1201.         OF=0
  1202. i2699:    PL=0
  1203.         W$=" "
  1204.         ATT=0
  1205.         XT=0
  1206.         REFG=0
  1207.         MFG=0
  1208.         FG1=0
  1209.         FLG=0
  1210.         FS=1
  1211.         QQ=0
  1212.         IR=.5
  1213.         LO=0
  1214. i2700:          GOTO i620
  1215.  
  1216. ' ---------------------
  1217.  
  1218. c100:          cupch=0:FOR n=1 TO 24
  1219. c110:          x=INT(RND*3)+3:y=INT(RND*20)+1
  1220. c112:          xx=INT(RND*3)+3:yy=INT(RND*20)+1
  1221. c114:          IF xx=x AND yy=y THEN c110
  1222. c120:               z=0:FOR rx=1 TO 24
  1223. c122:               IF (l(rx,1)=x AND l(rx,2)=y) OR (l(rx,4)=xx AND l(rx,5)=yy) OR (l(rx,1)=xx AND l(rx,2)=yy) OR (l(rx,4)=x AND l(rx,5)=y) THEN z=1
  1224. c124:               NEXT 
  1225. c126:               IF z=1 THEN c110           
  1226. c160:          l(n,1)=x:l(n,2)=y
  1227. c162:          l(n,4)=xx:l(n,5)=yy
  1228. c170:             IF le>2 THEN
  1229. c172:                IF l(n,1)=le AND l(n,2)=1 THEN j$="HOME TO ":O=l(n,4):R=l(n,5):cupch=1
  1230. c174:                IF l(n,4)=le AND l(n,5)=1 THEN j$="AWAY TO ":O=l(n,1):R=l(n,2):cupch=1
  1231. c190:             END IF
  1232. c200:          NEXT
  1233. c250:          IF cupch=0 AND le>2 THEN 
  1234. c255:             x=INT (RND*2)+1:y=INT(RND*24)+1
  1235. c260:             IF x=1 THEN l(y,1)=le:l(y,2)=1:j$="HOME TO ":O=l(y,4):R=l(y,5)
  1236. c265:             IF x=2 THEN l(y,4)=le:l(y,5)=1:j$="AWAY TO ":O=l(y,1):R=l(y,2)   
  1237. c270:          END IF
  1238. c500:          RETURN
  1239.  
  1240. c1000:   CLS:COLOR hdg:LOCATE 3,3:
  1241.          PRINT "F. A. Cup"
  1242. c1010:   COLOR txt:LOCATE 5,3:PRINT "(A) 2nd Round"
  1243. c1012:   LOCATE 7,3:PRINT "(B) 3rd Round"
  1244. c1014:   LOCATE 9,3:PRINT "(C) 4th Round"
  1245. c1016:   LOCATE 11,3:PRINT "(D) 5th Round"
  1246. c1018:   LOCATE 13,3:PRINT "(E) Quarter/Semi & Final"
  1247. c1020:   LOCATE 15,3:PRINT "(F) Return"
  1248. c1040:   x$=" ":DO WHILE x$<>"f" AND x$<>"a" AND x$<>"b" AND x$<>"c" AND x$<>"d" AND x$<>"e"
  1249.          x$=INKEY$
  1250.          LOOP
  1251. c1042:   IF x$="a" THEN GOSUB c1100   
  1252. c1044:   IF x$="b" THEN GOSUB c1100
  1253. c1046:   IF x$="c" THEN GOSUB c1100
  1254. c1047:   IF x$="d" THEN GOSUB c1100
  1255. c1048:   IF x$="e" THEN GOSUB c1100
  1256. c1049:   IF x$="f" THEN GOSUB 5000
  1257. c1050:   GOTO c1000
  1258.  
  1259.  
  1260. c1100:   CLS:COLOR 5:cc=(ASC(x$))-95
  1261.          IF x$="a" THEN tt=1:ed=12:z$="2nd Round - page 1"
  1262.          IF x$="b" THEN tt=25:ed=40:z$="3rd Round - page 1"
  1263.          IF x$="c" THEN tt=57:ed=72:z$="4th Round"
  1264.          IF x$="d" THEN tt=73:ed=80:z$="5th Round"
  1265.          IF x$="e" THEN tt=81:ed=87:z$="Quarter Final"
  1266.          COLOR hdg:PRINT "F.A. Cup ";z$:PRINT
  1267.          x=0
  1268.          test=0:FOR n=tt TO ed
  1269.          IF n=87 AND l(87,3)+l(87,6)=0 THEN test=1
  1270.          IF n=85 AND l(85,3)+l(86,3)+l(85,6)+l(86,6)=0 THEN test=1
  1271.          IF x$="e" AND n=85 THEN PRINT:PRINT:COLOR hdg:PRINT "F.A. Cup Semi-Final":COLOR txt:PRINT
  1272.          IF x$="e" AND n=87 THEN PRINT:PRINT:COLOR hdg:PRINT "F.A. Cup Final":COLOR txt:PRINT
  1273.          COLOR 4:x=x+1:IF x=2 THEN COLOR 7:x=0
  1274.          IF n=87 THEN COLOR 1
  1275.          IF (l(n,1)=le AND l(n,2)=1) OR (l(n,4)=le AND l(n,5)=1) THEN COLOR 1
  1276.          PRINT a$(l(n,1),l(n,2));
  1277.          IF r1>cc AND test=0 THEN PRINT TAB(13);l(n,3);
  1278.          PRINT TAB(16);a$(l(n,4),l(n,5));
  1279.          IF r1>cc AND test=0 THEN 
  1280.             PRINT TAB(28);l(n,6)
  1281.            ELSE
  1282.             PRINT
  1283.          END IF
  1284.          REM IF x$="e" AND n=84 AND r1=6 THEN n=87
  1285.          REM IF x$="e" AND n=86 AND r1=7 THEN n=87
  1286.          NEXT 
  1287. c1110:   GOSUB click:IF x$<>"a" AND x$<>"b" THEN RETURN
  1288. c1120:   CLS:COLOR 5
  1289.          IF x$="a" THEN tt=13:ed=24:z$="2nd Round - page 2"
  1290.          IF x$="b" THEN tt=41:ed=56:z$="3rd Round - page 2"
  1291.          COLOR hdg:PRINT "F.A. Cup "z$:PRINT
  1292.          x=0
  1293.          FOR n=tt TO ed:COLOR 4
  1294.          x=x+1:IF x=2 THEN COLOR 7:x=0
  1295.          IF (l(n,1)=le AND l(n,2)=1) OR (l(n,4)=le AND l(n,5)=1) THEN COLOR 1
  1296.          PRINT a$(l(n,1),l(n,2));
  1297.          IF r1>cc THEN PRINT l(n,3);
  1298.          PRINT TAB(16);a$(l(n,4),l(n,5));
  1299.          IF r1>cc THEN 
  1300.             PRINT TAB(28);l(n,6)
  1301.            ELSE
  1302.             PRINT
  1303.          END IF
  1304.          NEXT
  1305. c1130:   GOSUB click:RETURN
  1306.  
  1307. c2000:   rr1=r1-1:IF rr1=2 THEN x=1:xx=24:h=25:x$="F.A.Cup Results - 2nd Round"
  1308. c2001:   IF rr1=3 THEN x=25:xx=56:h=57:x$="F.A.Cup Results - 3rd Round"
  1309. c2002:   IF rr1=4 THEN x=57:xx=72:h=73:x$="F.A.Cup Results - 4th Round"
  1310. c2003:   IF rr1=5 THEN x=73:xx=80:h=81:x$="F.A.Cup Results - 5th Round"
  1311. c2004:   IF rr1=6 THEN x=81:xx=84:h=85:x$="F.A.Cup Results - Q/Final"
  1312. c2005:   IF rr1=7 THEN x=85:xx=86:h=87:x$="F.A.Cup Results - S/Final"
  1313. c2006:   IF rr1=8 THEN x=87:xx=87:x$="F.A.Cup Results - FINAL" 
  1314. c2020:   l=0:CLS:COLOR 7:PRINT x$:COLOR 3
  1315. c2021:   FOR n=x TO xx:p=1:pp=2:l=l+1:IF l=2 THEN p=4:pp=5
  1316. c2022:   hg1=6-l(n,1):ag1=6-l(n,4)
  1317.          hg1=INT(hg1*1.5):ag1=INT(ag1*1.5)
  1318.          hg=hg1-ag1:ag=ag1-hg1
  1319.          IF hg<2 THEN hg=2
  1320.          IF ag<1 THEN ag=1
  1321. c2024:   hg=hg+3:ag=ag+3
  1322. c2025:   l(n,3)=INT(RND*hg):l(n,6)=INT(RND*ag)
  1323.          IF hg>6 AND INT(RND*10)+1>5 THEN hg=ag+1
  1324.          IF ag>6 AND INT(RND*10)+1>5 THEN ag=hg+1
  1325.          IF (l(n,1)=le AND l(n,2)=1) THEN l(n,3)=aa:l(n,6)=bb
  1326.          IF (l(n,4)=le AND l(n,5)=1) THEN l(n,3)=bb:l(n,6)=aa
  1327. c2026:   IF l(n,3)=l(n,6) THEN GOTO c2025:
  1328. c2027:   PRINT a$(l(n,1),l(n,2));TAB(13);l(n,3);
  1329.          PRINT TAB(16);a$(l(n,4),l(n,5));TAB(28);l(n,6)
  1330.          GOSUB wait_while
  1331. c2028:   IF n<87 AND l(n,3)>l(n,6) THEN l(h,p)=l(n,1):l(h,pp)=l(n,2)
  1332. c2029:   IF n<87 AND l(n,3)<l(n,6) THEN l(h,p)=l(n,4):l(h,pp)=l(n,5)
  1333.            IF n<87 THEN x=0:IF l(h,1)=le AND l(h,2)=1 THEN O=l(h,4):R=l(h,5):j$="HOME TO "
  1334.            IF n<87 THEN x=0:IF l(h,4)=le AND l(h,5)=1 THEN O=l(h,1):R=l(h,2):j$="AWAY TO "
  1335. c2040:   IF l=2 THEN l=0:h=h+1
  1336. c2050:   NEXT
  1337. c2054:   IF rr1=2 THEN
  1338. c2055:      cup=1:FOR n=1 TO 24
  1339. c2056:      IF l(n,3)>l(N,6) THEN cup%(cup,1)=l(n,1):cup%(cup,2)=l(n,2)
  1340. c2058:      IF l(n,3)<l(N,6) THEN cup%(cup,1)=l(n,4):cup%(cup,2)=l(n,5)
  1341. c2060:      cup=cup+1:NEXT
  1342. c2062:   END IF
  1343. c2064:   IF rr1=2 THEN GOSUB c2200
  1344. c2068:   IF ma=>45 THEN j$="NEUTRAL "
  1345. c2070:   PRINT:PRINT:PRINT:PRINT:GOSUB click:RETURN
  1346.  
  1347. c2200:  FOR n=25 TO 56
  1348. c2210:          x=INT(RND*64)+1:IF cup%(x,3)=1 THEN c2210
  1349. c2212:          y=INT(RND*64)+1:IF cup%(y,3)=1 THEN c2212
  1350. c2214:          IF x=y THEN c2210
  1351. c2240:          cup%(x,3)=1:cup%(y,3)=1           
  1352.  
  1353. c2260:          l(n,1)=cup%(x,1):l(n,2)=cup%(x,2)
  1354. c2262:          l(n,4)=cup%(y,1):l(n,5)=cup%(y,2)
  1355.            IF l(n,1)=le AND l(n,2)=1 THEN O=l(n,4):R=l(n,5):j$="HOME TO "
  1356.            IF l(n,4)=le AND l(n,5)=1 THEN O=l(n,1):R=l(n,2):J$="AWAY TO "
  1357. c2300:  NEXT:RETURN
  1358.  
  1359. 2000    IF i(2,pp)=0
  1360.                         COLOR 5
  1361.             LOCATE 17,1:PRINT "PLAYER HAS NO CONTRACT AND HAS  "
  1362.             LOCATE 18,1:PRINT "ACCEPTED TERMS OFFERED BY "
  1363.             LOCATE 19,1:PRINT A$(T1,T2)
  1364.             FG=9:DT=2
  1365.             GOSUB click
  1366.         END IF
  1367. 2140    RETURN
  1368.  
  1369. ' ---------------------
  1370.  
  1371. 2143    IF GA=2
  1372.             
  1373.             LOCATE 13,6:COLOR 1
  1374.             GOSUB WAIT_WHILE
  1375.             PRINT "      G O A L !     "
  1376.             GOSUB delay
  1377.             IF fnr(12)+1>1
  1378.                 GOSUB 3900
  1379.                 GOTO 2145
  1380.             END IF
  1381.         END IF    
  1382. 2144    
  1383.         LOCATE 13,5:COLOR 2
  1384.         PRINT" D I S A L L O W E D "
  1385.         GOSUB delay
  1386.         W(8,P)=W(8,P)-1
  1387.  
  1388. 2145    AA=W(8,1)
  1389.     BB=W(8,2)
  1390.     RETURN
  1391. '  -------------------------
  1392. 2200  CLS:PRINT "Friendly"
  1393. 2299  GOSUB click:RETURN
  1394. '  -------------------------
  1395. 2300  COLOR 4:xx=0
  1396. 2310  FOR n=1 TO 70:COLOR 4
  1397. 2315  IF xx=0 AND res%(n,1)<>0 THEN 
  1398.        CLS:LOCATE 1,1:PRINT "Opponents    F   A  Comp"
  1399.       END IF    
  1400. 2320  IF res%(n,1)<>0 THEN
  1401.        COLOR 6:x$="H"::IF res%(n,5)>9 THEN COLOR 7:x$="A"
  1402.        xx=xx+1
  1403.        PRINT a$(res%(n,1),res%(n,2));TAB(13);res%(n,3);
  1404.        PRINT TAB(17);res%(n,4);TAB(21);
  1405.          IF res%(n,5)=1 OR res%(n,5)=11 THEN PRINT x$;" League"
  1406.          IF res%(n,5)=2 OR res%(n,5)=12 THEN PRINT x$;" League Cup"
  1407.          IF res%(n,5)=3 OR res%(n,5)=13 THEN PRINT x$;" F.A.Cup"
  1408.          IF res%(n,5)=6 OR res%(n,5)=16 THEN PRINT x$;" Friendly"
  1409.        PRINT STR$(res%(n,6))
  1410.        IF xx=10 THEN GOSUB click:xx=0
  1411.       END IF
  1412. 2360  NEXT:IF xx<>10 THEN GOSUB click
  1413. 2399  RETURN
  1414.  
  1415. '  -------------------------
  1416. 2420    GOSUB CLEAR_RIGHT_WINDOW
  1417. 2421    IF hr=0 THEN RETURN
  1418. 2422            COLOR 3:LOCATE 4,15
  1419.         PRINT "(C)OACH"
  1420.         LOCATE 6,15
  1421.         PRINT "(F)ITNESS"
  1422.         LOCATE 8,15
  1423.         PRINT "(R)ETURN"
  1424.         Y$="":DO WHILE y$<>"c" AND y$<>"f" AND y$<>"r"
  1425.                 y$=INKEY$
  1426.                 LOOP
  1427.         Y$=UCASE$(Y$)
  1428. 2430    IF Y$="R" THEN 2600
  1429. 2439    GOSUB clear_right_window:IF Y$="C" THEN 2450
  1430. 2440    LOCATE 8,15
  1431.         PRINT "SQUAD"
  1432.         LOCATE 10,15
  1433.         PRINT "FITNESS"
  1434.         GOTO 2470
  1435. 2450    LOCATE 8,15
  1436.         PRINT "COACHING"
  1437.         LOCATE 25,1:COLOR 2
  1438.         PRINT "(G)/KEEPER (D)EF (M) OR (F)"
  1439.                 z$="":DO WHILE z$<>"g" AND z$<>"d" AND z$<>"m" AND z$<>"f"
  1440.                 z$=INKEY$
  1441.                 LOOP
  1442.         Z$=UCASE$(Z$)
  1443. 2455    x$="Goalkeepers":IF z$="D" THEN x$="Defenders"
  1444. 2456    IF z$="M" THEN x$="Midfielders"
  1445. 2457    IF z$="F" THEN x$="Forwards"
  1446. 2460    LOCATE 10,15 :COLOR 3: PRINT UCASE$(x$)
  1447.         W$=Z$
  1448.         LOCATE 25,1
  1449.         PRINT SPACE$(30)
  1450. 2470            LOCATE 24,1:COLOR 2:PRINT "HOURS"
  1451.             Q=8:YY=5:GOSUB 9100
  1452.                 LOCATE 24,1:PRINT SPACE$(20)
  1453.         IF Z>HR THEN 2470
  1454. 2480            HR=HR-Z:LOCATE 1,1:COLOR 4
  1455.                 PRINT "[HOURS = ";FND$(HR);"] "
  1456.         ZR=Z
  1457. 2490    X=fnr(10)+1
  1458.         IF Y$="C" THEN 2570
  1459. 2530    IF X>9
  1460.                 COLOR 6:LOCATE 12,15:PRINT "INJURY TO"
  1461.             GOSUB wait_while
  1462.             YQ=fnr(20)+3
  1463.                            IF MID$(E$,YQ,1)="I" THEN
  1464.                            GOTO 2530
  1465.                            END IF
  1466.                         LOCATE 14,15:PRINT b$(YQ)
  1467.                         GOSUB wait_while
  1468.                         GOSUB wait_while
  1469.             i(1,YQ)=fnr(6)+1
  1470.     END IF
  1471. 2540    FOR N=1 TO 22
  1472.             ZZ=N
  1473.             GOSUB 9140
  1474.             IF fnr(8)+ZR>7 AND MID$(E$,N,1)<>"I"
  1475.                 Z4=Z4+1
  1476.                 IF Z4<6
  1477.                 Q=9:GOSUB 8815:Q=0
  1478.                 END IF
  1479.             END IF
  1480. 2550        IF i(1,N)>0 THEN MID$(E$,N,1)="I"
  1481. 2560    NEXT N
  1482. 2562    GOTO 2420
  1483. 2570    FOR N=1 TO 22
  1484.         ZZ=N
  1485.         GOSUB 9140
  1486. 2590        X=0
  1487.         IF Z5>26 OR Z6=0 OR Z3=9 THEN 2596
  1488. 2592        IF fnr(ZR)+1>fnr(4) AND W$=MID$(F$,N,1) AND MID$(E$,N,1)<>"I"
  1489.                 X=VAL(MID$(P$,N,1))
  1490.                 X=X+1
  1491.                 MID$(P$,N,1)=FND$(X)
  1492.                 IF X>=(Z3+1)
  1493.                     Z6=Z6-1
  1494.                     Z3=Z3+1
  1495.                     X=99
  1496.                 END IF
  1497.             END IF
  1498. 2594        IF X=99 AND Z3<10
  1499.                 X=0
  1500.                 B&(N)=B&(N)+10000000
  1501.                 B&(N)=B&(N)-1000
  1502.                 MID$(P$,N,1)=FND$(X)
  1503.                 IF B$(N)="RESERVE   " THEN STRSET B$(N),""
  1504.             END IF
  1505. 2596    NEXT N:GOTO 2420
  1506. 2600    Q=0
  1507.         GOSUB CLEAR_RIGHT_WINDOW
  1508.         RETURN
  1509.  
  1510. ' ---------------------
  1511.  
  1512. 2700    Y=2
  1513.         FOR N=1 TO 22
  1514.             IF MID$(E$,N,1)="P"
  1515.                 ZZ=N
  1516.                 GOSUB 9140
  1517.                 LOCATE Y,1:COLOR 7
  1518.                 PRINT CHR$(n+64);FNTB$(4);MID$(F$,N,1);" ";MID$(B$(N),1,8);" ";fnd$(Z3)
  1519.                 Y=Y+1
  1520.             END IF
  1521. 2705    NEXT N
  1522.         LOCATE 13,1
  1523.         PRINT "                "
  1524.         LOCATE 14,1
  1525.         PRINT "                 "
  1526. 2710    FOR N=1 TO 22
  1527.             IF MID$(E$,N,1)="S"
  1528.                 ZZ=N
  1529.                 GOSUB 9140
  1530.                 LOCATE Y,1:COLOR 4
  1531.                 PRINT CHR$(n+64);FNTB$(4);MID$(F$,N,1);" ";MID$(B$(N),1,8);" ";fnd$(Z3)
  1532.                 Y=Y+1
  1533.             END IF
  1534. 2715    NEXT N
  1535.         QE=0
  1536.         IF Q=9 THEN RETURN 
  1537. 2720    Q=9
  1538.         YY=20
  1539.         GOSUB 9500:z=z-32
  1540. 2725    IF Z$="R" AND QE=0 THEN LOCATE 25,1:PRINT SPACE$(31):RETURN 
  1541. 2726    IF Z$="R" AND QE=9 THEN 2720
  1542. 2728    IF MID$(E$,Z,1)<>"P" THEN 2720
  1543. 2729    MID$(E$,Z,1)="R"
  1544. 2730    FOR N=1 TO 5
  1545.         W(N,1)=0
  1546.         NEXT N
  1547. 2732    Q=7:sub$=" TO COME ON"
  1548.         GOSUB 9500:z=z-32:sub$=""
  1549. 2735    IF MID$(E$,Z,1)<>"S" THEN 2730
  1550. 2737    MID$(E$,Z,1)="P"
  1551.         SUBX=SUBX+1
  1552.         IF SUBX=1
  1553.             QE=9
  1554.             LOCATE 25,1:PRINT "SECOND SUB Y/N ?               "
  1555.                         x$=" ":DO WHILE x$<>"y" AND x$<>"n"
  1556.                         x$=INKEY$
  1557.                         LOOP
  1558.             IF x$="y" THEN 2720
  1559.         END IF
  1560. 2740    G=1
  1561.         Q=7
  1562.         GOSUB 930
  1563.          Q=9
  1564.         GOSUB 2700
  1565.         Q=0
  1566. 2749    LOCATE 25,1:PRINT SPACE$(31):RETURN 
  1567.  
  1568. ' ---------------------
  1569.  
  1570. 2800    IF fnr(150)+1>10 THEN RETURN 
  1571. 2810    IF AA>BB
  1572.             SW2=ST2
  1573.             SB2=20
  1574.             GOTO 2830
  1575.         END IF
  1576. 2820    IF AA<BB
  1577.             SW1=ST1
  1578.             SB1=20
  1579.             GOTO 2830
  1580.         END IF
  1581. 2825    SW1=ST1
  1582.         SW2=ST2
  1583.         SB1=20
  1584.         SB2=20
  1585. 2830    G=2
  1586.         FG=88
  1587.         GOSUB 981
  1588.         FG=0
  1589. 2855    SSB=2
  1590.         SX=9
  1591.         GOSUB click
  1592.         RETURN 
  1593.  
  1594. ' ---------------------
  1595.  
  1596. 2900    COLOR 7:ATT = 0:Q$=" ":Y=1
  1597.         FOR N=1 TO 3
  1598.             FOR F=1 TO 20
  1599. 2910            IF S(N,F,3)=18
  1600.                     D(Y,1)=N
  1601.                     D(Y,2)=F
  1602.                     Y=Y+4
  1603.                     F=20
  1604.                 END IF
  1605. 2912        NEXT F
  1606.         NEXT N
  1607. 2918    CC=0
  1608.         Y=2
  1609.         FOR N=2 TO 4
  1610.             FOR F=1 TO 20
  1611. 2920            IF (S(N,F,3)>2 AND S(N,F,3)<6)
  1612.                     D(Y,1)=N
  1613.                     D(Y,2)=F
  1614.                     Y=Y+1
  1615.                     CC=CC+1
  1616.                 END IF
  1617. 2926        NEXT F
  1618.             Y=Y+1
  1619.         NEXT N
  1620. 2930    IP=0
  1621.         FOR N=1 TO 12
  1622.             IF D(N,1)=OLD AND D(N,2)=1 THEN IP=N
  1623. 2932    NEXT N
  1624.         C=0
  1625.         T=0
  1626.         IF IP=0 THEN 2950
  1627. 2933            I$="PLAY OFF MATCH"
  1628.         CP=1
  1629.         X5=fnr(4)+1
  1630.         IF IP>4
  1631.             X5=fnr(4)+5
  1632.             IF IP>8 THEN X5=fnr(4)+9
  1633.         END IF
  1634. 2935    IF X5=T OR (D(X5,1)=LE AND D(X5,2)=1) THEN 2933
  1635. 2937    PL=0
  1636.         LY=D(X5,1)
  1637.         OP=D(X5,2)
  1638.         C=C+1
  1639.         MHL=D(X5,1)
  1640.         MHT=D(X5,2)
  1641.         MAL=OLD
  1642.         MAT=1
  1643.         GOSUB 8300
  1644.  
  1645.         GOSUB 8800
  1646.         A2=AA
  1647.         B2=BB
  1648.         PL=1
  1649.         MHL=OLD
  1650.         MHT=1
  1651.         MAL=D(X5,1)
  1652.         MAT=D(X5,2)
  1653.         GOSUB 8300
  1654.  
  1655.         AA=AA+A2
  1656.         BB=BB+B2
  1657.         IF AA=BB THEN GOSUB 4070
  1658. 2940    GOSUB 8800
  1659.         IF AA>BB AND C<2
  1660.             T=INT(X5)
  1661.             GOTO 2933
  1662.         END IF
  1663. 2945    IF AA>BB THEN Y=IP
  1664. 2946    IF BB>AA THEN Y=X5
  1665. 2950    X1=fnr(4)+1
  1666.         X2=fnr(4)+5
  1667.         X3=fnr(4)+9
  1668. 2952    IF IP<>0 AND IP<5 THEN X1=Y
  1669. 2954    IF (IP>4 AND IP<9) THEN X2=Y
  1670. 2956    IF IP>8 THEN X3=Y
  1671. 2990    CLS
  1672.         PRINT "PLAY OFF WINNERS"
  1673.         Y=1
  1674.         FOR N=1 TO 12
  1675.             IF N<>X1 AND N<>X2 AND N<>X3
  1676.                 Y$=A$(D(N,1),D(N,2))
  1677.                 GOTO 2995
  1678.             END IF
  1679. 2991        PRINT
  1680.             PRINT "     ";A$(D(N,1),D(N,2));" ARE IN DIV ";fnd$(Y)
  1681.             PRINT
  1682.             Y=Y+1
  1683. 2992        DV=1
  1684.             IF Y>2
  1685.                 DV=5
  1686.                 IF Y>3 THEN DV=9
  1687.             END IF
  1688. 2993        IF D(N,1)<>Y-1
  1689.                 Z$=A$(D(N,1),D(N,2))
  1690.                 Y$=A$(D(DV,1),D(DV,2))
  1691.                 A$(D(N,1),D(N,2))=Y$
  1692.                 A$(D(DV,1),D(DV,2))=Z$
  1693.                 IF D(N,1)=LE AND D(N,2)=1
  1694.                     LE=LE-1
  1695.                     W$=Z$
  1696.                 END IF
  1697.             END IF
  1698. 2994        IF D(N,1)<>Y-1 AND (D(DV,1)=LE AND D(DV,2)=1)
  1699.                 LE=LE+1
  1700.                 W$=Y$
  1701.             END IF
  1702. 2995    NEXT N
  1703.         IF O(1)=0
  1704.             GOSUB click
  1705.         END IF
  1706. 2999    RETURN 
  1707.  
  1708. ' ---------------------
  1709.  
  1710. 3000    CLS:COLOR hdg
  1711.         PRINT "No PLAYER     A  AGE CON WAGE TL"
  1712.  
  1713. 3005    FOR N=1 TO 22:COLOR txt
  1714.             ZZ=N
  1715.             GOSUB 9140
  1716. 3010        LOCATE N+1,1:PRINT CHR$(N+64);FNTB$(4);B$(N);" ";FND$(Z3);"  ";FND$(Z5);"   ";FND$(i(2,n));"  ";
  1717.             PRINT fnd$(E(N));FNTB$(32);MID$(T$(N),1,1)
  1718. 3015    NEXT N
  1719. 3020    COLOR 2:LOCATE 24,1:PRINT SPACE$(30)
  1720.         PRINT "(O)N  (F)ROM  (N)EG OR (R)ETURN"
  1721.         w$="":DO WHILE w$<>"o" AND w$<>"f" AND w$<>"n" AND w$<>"r"
  1722.               w$=INKEY$
  1723.               LOOP
  1724.           W$=UCASE$(W$)
  1725. 3021    IF W$="R" OR (W$="N" AND (HR<1 OR MO<0))
  1726.             W$=" "
  1727.             GOTO 5000
  1728.     END IF
  1729. 3022    IF W$="N" THEN 3040
  1730. 3023    Q=7
  1731.         YY=20
  1732.         GOSUB 9500:z=z-32
  1733.         IF T$(Z)="D" OR T$(Z)="TD" THEN
  1734.                         CLS:LOCATE 3,1:COLOR 6
  1735.                         PRINT "  ";b$(Z);" is already"
  1736.                         PRINT:PRINT "  on the transfer list"
  1737.                            PRINT
  1738.                            IF T$(z)="D" THEN PRINT "  at his own request"
  1739.                            IF T$(z)="TD" THEN PRINT " on the Chairman's":PRINT:PRINT " instruction"
  1740.                         GOSUB click
  1741.             W$=" "
  1742.             GOTO 3000
  1743.         END IF
  1744. 3025    IF T$(Z)<>"TD" THEN T$(Z)=" "
  1745.         IF T$(z)="TD" AND W$="F" THEN
  1746.            CLS:LOCATE 3,1:COLOR 6
  1747.            PRINT "  ";b$(Z);"has been placed"
  1748.            PRINT:PRINT "  on the transfer list"
  1749.            PRINT:PRINT "  by the Chairman and"
  1750.            PRINT:PRINT "  cannot be taken off"
  1751.            PRINT:PRINT "  until a new contract"
  1752.            PRINT:PRINT "  has been negotiated"
  1753.            GOSUB click:GOTO 3000
  1754.         END IF
  1755.     IF W$="O" THEN T$(Z)="T"
  1756. 3030    COLOR txt:LOCATE Z+1,32
  1757.     PRINT MID$(T$(Z),1,1)
  1758.     GOTO 3020
  1759. 3040    Q=7
  1760.         YY=20
  1761.         GOSUB 9500:z=z-32
  1762.         ZZ=Z
  1763.         GOSUB 9140
  1764.         IF i(2,z)=0
  1765.             COLOR 7
  1766.             LOCATE ZZ+1,4
  1767.             PRINT B$(Z)
  1768.             LY=LE
  1769.             GOTO 3050
  1770.         END IF
  1771. 3042    GOTO 3020
  1772. 3050    LY=LE
  1773.         
  1774.         LOCATE 24,1:COLOR 2
  1775.         PRINT "NUMBER OF SEASONS CONTRACT     "
  1776.         YY=5:PRINT SPACE$(30)
  1777.         Q=8
  1778.         GOSUB 9100
  1779.         XX=Z:Z=0
  1780. 3055    COLOR 2
  1781.         LOCATE 24,1 PRINT "ANNUAL SALARY OFFER £";Z;"   "
  1782.         LOCATE 25,1:PRINT "(H)IGHER  (L)OWER OR (O)FFER"
  1783.                 X$="":DO WHILE X$<>"h" AND X$<>"l" AND X$<>"o"
  1784.                 X$=INKEY$
  1785.                 LOOP
  1786.                 IF X$="h" AND z+1000<250001 THEN Z=Z+1000:GOTO 3055
  1787.                 IF x$="h" THEN 3055
  1788.                 IF X$="l" AND Z>1999 THEN Z=Z-1000:GOTO 3055
  1789.                 IF x$="l" THEN 3055
  1790. 3060        GOSUB 9350
  1791.         IF Z<T
  1792.                 LOCATE 24.1:PRINT SPACE$(30)
  1793.                 LOCATE 25,1:PRINT SPACE$(30)            
  1794.             LOCATE 25,1
  1795.             PRINT "OFFER NOT ACCEPTED            "
  1796.             GOSUB WAIT_WHILE
  1797.             GOSUB WAIT_WHILE
  1798.             X=5
  1799.             IF QQ<>9
  1800.                                 COLOR txt
  1801.                 LOCATE ZZ+1,4
  1802.                 PRINT B$(ZZ)
  1803.                 GOSUB 9300
  1804.                 GOTO 3020
  1805.             END IF
  1806.         END IF
  1807. 3061    IF QQ=9
  1808.             LOCATE 24,1:PRINT SPACE$(32)
  1809.             PRINT SPACE$(32):RETURN 
  1810.         END IF
  1811. 3085    E(ZZ)=Z:i(2,zz)=xx:T$(zz)=" "
  1812.         B&(ZZ)=B&(ZZ)+(XX*100)-(i(2,zz)*100)
  1813.         COLOR txt
  1814.                 LOCATE ZZ+1,4:PRINT B$(ZZ)
  1815.                 LOCATE ZZ+1,23:PRINT fnd$(i(2,zz));"  ";fnd$(E(ZZ))
  1816. 3099    GOSUB 9300
  1817.         GOTO 3020
  1818.  
  1819. ' ---------------------
  1820.  
  1821. 3200    IF IC=0 THEN RETURN 
  1822. 3201     GOSUB 8300
  1823.         IF ma=8 OR ma=18 OR ma=25 OR ma=32 OR ma=45 OR ma=53 OR ma=61 THEN
  1824.         IF aa=bb THEN GOSUB 4070
  1825.         END IF
  1826.  
  1827. 3202    FLG=0
  1828. 3203    IF LG=1 AND CP=2
  1829.         A2=AA
  1830.         B2=BB
  1831.         GOSUB 3290
  1832.         FLG=9
  1833.         GOTO 3250
  1834.     END IF
  1835. 3204    ps=0
  1836.         IF MA=5 OR MA=15 OR MA=50
  1837.                 ps=2
  1838.         IF A2+AA=B2+BB THEN GOSUB 4070:ps=1:psa=aa:psb=bb
  1839.     END IF
  1840. 3205    IF RE=1
  1841.         RE=0
  1842.         IF AA=BB THEN GOSUB 4070
  1843.                 IF aa>bb THEN GOTO 3250
  1844.     END IF
  1845. 3206    IF (ps=2 AND AA+a2>BB+b2 OR (ps=1 AND psa>psb)) AND CP=2 AND LG=2
  1846.         Z1=B
  1847.         Z2=C
  1848.         GOSUB 9120
  1849.         GOSUB 8101
  1850.         NT=7
  1851.         GOTO 3250
  1852.     END IF
  1853. 3207    IF AA>BB AND CP=3
  1854.         Z1=O
  1855.         Z2=R
  1856.         GOSUB 9120
  1857.         GOSUB 8101
  1858.         NT=7
  1859.         GOTO 3250
  1860.     END IF
  1861. 3208    IF (MA<>5 AND MA<>15 AND MA<>50) AND RE=0 AND (AA=BB AND (CP=2 AND LG=2))
  1862.         RE=1
  1863.         GOSUB 4090
  1864.         GOTO 3250
  1865.     END IF
  1866. 3209    NT=9
  1867. 3250    GOSUB 8800
  1868.     RETURN 
  1869.  
  1870. ' ---------------------
  1871.  
  1872. 3290    IF MA>55 THEN RETURN 
  1873. 3291    IF K$="HOME TO "
  1874.         K$="AWAY TO "
  1875.             RETURN 
  1876.     END IF
  1877. 3292    K$="HOME TO "
  1878.     RETURN 
  1879.  
  1880. ' ---------------------
  1881.  
  1882. 3295    IF MA>51 THEN RETURN 
  1883. 3296    IF J$="HOME TO "
  1884.         J$="AWAY TO "
  1885.         RETURN 
  1886.     END IF
  1887. 3297    J$="HOME TO "
  1888.     RETURN 
  1889.  
  1890. ' ---------------------
  1891.  
  1892. 3300    IF MW=40 THEN RETURN 
  1893. 3304    temp=99:W = 10
  1894.         Y =  4
  1895.         CLS:COLOR hdg
  1896.         PRINT " MIDWEEK MATCHES"
  1897. 3305    RA=9:COLOR 7
  1898.         GOSUB 3385
  1899.         Q=6
  1900.         FOR N=1 TO 4
  1901.             READ A
  1902.             HT=A
  1903.             READ A
  1904.             OT=A
  1905.             GOSUB 3387
  1906.             GOSUB 7540
  1907.         NEXT N
  1908. 3307    IF O(2)=0 AND (MW=0 OR MW=24)
  1909.             GOSUB 8300
  1910.         END IF
  1911. 3308    IF O(2)=1 OR (MW<>0 AND MW<>24)
  1912.              GOSUB click
  1913.         END IF
  1914. 3310    IF MW=0 OR MW=24
  1915.             GOSUB 8800
  1916.             LM=LM+1
  1917.         END IF
  1918. 3320    FOR F=1 TO 5
  1919.             Y=4
  1920.             CLS:COLOR hdg
  1921.             q=3:xx=f:GOSUB 7505
  1922.                         PRINT x$;" RESULTS"
  1923.             GOSUB 3385
  1924.             Q=6:COLOR 7
  1925.         FOR N=1 TO 4
  1926.             READ A
  1927.             HT=A
  1928.             READ A
  1929.             OT=A
  1930.                         IF f=le
  1931.                         IF ht=1 THEN temp=0:xht=1:aa=w(ht,1):bb=w(ot,1)
  1932.                         IF ot=1 THEN temp=0:aa=w(ot,1):bb=w(ht,1)
  1933.                         END IF
  1934.             GOSUB 3387
  1935.             GOSUB 7625
  1936. 3325        NEXT N
  1937.             GOSUB 3380
  1938.             IF O(1)=0 THEN GOSUB click
  1939. 3330    NEXT F
  1940. 3369    MW=MW+8
  1941.         IF FS=1 AND MW=40
  1942.             FS=2
  1943.             MW=0
  1944.         END IF
  1945. 3370    RETURN
  1946.  
  1947. ' ---------------------
  1948.  
  1949. 3380    GOSUB 3385
  1950.         FOR K=1 TO 4
  1951.             READ A
  1952.             GOSUB 7810
  1953.             READ A
  1954.             GOSUB 7810
  1955.         NEXT K
  1956.         RETURN 
  1957.  
  1958. ' ---------------------
  1959.  
  1960. 3385    RESTORE 3399
  1961.         FOR T=1 TO MW
  1962.             READ A
  1963.         NEXT T
  1964.         RETURN 
  1965. 3387    IF FS=2
  1966.             X=HT
  1967.             HT=OT
  1968.             OT=X
  1969.         END IF
  1970. 3388    RETURN 
  1971. 3399    DATA 1,15,6,19,3,9,11,20,11,18,4,17,9,15,5,8,8,14,7,12,2,3,10
  1972.         DATA 16,1,12,10,20,4,16,13,17,2,7,13,19,5,14,6,18
  1973. ' --------------------
  1974. 3700   COLOR 1
  1975. 3710   PRINT "Total crowd";TAB(24);w(1,1)
  1976.        ls=INT(w(1,1)*.55):lt=w(1,1)-ls
  1977.        PRINT "Looking for Seats";TAB(24);ls
  1978.        PRINT "Available";TAB(24);rst(2)
  1979.        PRINT "Looking for Standing";TAB(24);lt
  1980.        PRINT "Available";TAB(24);rst(1)
  1981. 3720   x=(6-le)*(20-d(1,8))
  1982.        ms=x*50+INT(RND*100)
  1983.        mt=x*100+INT(RND*100)
  1984.        PRINT "L/P";d(1,8);"  MS";ms;"  MT";mt
  1985. 3725   fc=3
  1986.        IF d(1,8)<8 THEN fc=4
  1987.        IF d(1,8)>14 THEN fc=2
  1988.        PRINT "Price factor";TAB(24);fc
  1989.        cs=(6-le)*fc
  1990.        ct=(6-le)+(fc-1)
  1991. 3728   z=(7-le)
  1992.        PRINT "Facility  Act";rst(5);" Rqd";z
  1993.        er5=z-rst(5)
  1994.        IF er5>0 THEN cs=cs-(er5*2)
  1995.        IF er5>0 THEN ct=ct-er5              
  1996.        IF er5<0 THEN cs=cs+(er5*2)
  1997.        IF er5<0 THEN ct=ct+er5
  1998.        IF cs<0 THEN cs=2
  1999.        IF ct<0 THEN ct=1
  2000. 3730   PRINT "Correct Seat price";TAB(24);cs;TAB(29);rst(4)
  2001.        PRINT "Correct Standing";TAB(24);ct;TAB(29);rst(3)
  2002.        er1=0:er2=0:er3=0:er4=0
  2003.        IF rst(4)>cs THEN er1=(rst(4)-cs)*((6-le)*400)
  2004.        IF rst(3)>ct THEN er2=(rst(3)-ct)*((6-le)*400)
  2005.        IF er1>0 THEN PRINT "Adj for seat o/c";TAB(24);er1
  2006.        IF er2>0 THEN PRINT "Adj for stand o/c";TAB(24);er2
  2007.        IF rst(4)<cs THEN er3=(cs-rst(4))*((6-le)*100)
  2008.        IF rst(3)<ct THEN er4=(ct-rst(3))*((6-le)*100)
  2009.        IF er3>0 THEN PRINT "Adj for seat u/c";TAB(24);er3
  2010.        IF er4>0 THEN PRINT "Adj for stand u/c";TAB(24);er4
  2011.        IF er1>0 THEN ls=ls-er1
  2012.        IF er2>0 THEN lt=lt-er2
  2013.        IF er3>0 THEN ls=ls+er3
  2014.        IF er4>0 THEN lt=lt+er4
  2015.        IF ls<ms THEN ls=ms
  2016.        IF lt<mt THEN lt=mt
  2017.        PRINT "Now looking for seats";TAB(24);ls
  2018.        PRINT "Now looking standing";TAB(24);lt
  2019.        hex=(6-le)*(rst(1)+(rst(2)*2))
  2020.        IF ls>rst(2) THEN ls=rst(2)
  2021.        IF lt>rst(1) THEN lt=rst(1)
  2022. 3799   GOSUB click:CLS:RETURN
  2023.  
  2024. ' ---------------------
  2025.  
  2026. 3800    CLS:hex=0
  2027.     REDIM W(20,2)
  2028. 3808    RR=0.45:IF MHL=LE AND MHT=1 THEN RR=0.75
  2029. 3809    RR=RR*(1+(MHL/3))
  2030.     Y=21-S(MHL,MHT,3)
  2031.     YY=21-S(MAL,MAT,3)
  2032. 3810    X=(6-MHL)
  2033.     XX=(6-MAL)
  2034.     W(1,1)=(((X-1)*(X-1))*600+((Y*(X*3))*50)+((XX-1)*500)+((YY*(XX*2))*30))+ATT+(((X-1)*Y)*((X-1)*60))
  2035.         IF cp=2 THEN w(1,1)=INT(w(1,1)*1.1)
  2036.         IF cp=3 THEN w(1,1)=INT(w(1,1)*1.3)
  2037.         W(2,1)=INT(W(1,1)*(((INT((9-MHL)/2))*RR)))
  2038.         IF mht=1 AND mhl=le THEN 
  2039.            GOSUB 3700
  2040.            w(1,1)=ls+lt
  2041.            w(2,1)=(ls*rst(4))+(lt*rst(3))
  2042.         END IF
  2043. 3812    IF RA =0
  2044.     HR=14-(DI*2):W(5,1)=INT((LO/100)*IR)
  2045.     LO=LO+W(5,1)
  2046.         IF fnr(10)+1>6 THEN IR=(fnr(50)+25)/100
  2047.     END IF
  2048. 3813    Q=9
  2049.         GOSUB 6120
  2050.         Q=0
  2051.         W(3,1)=INT(X/40)
  2052. 3814    W(4,1)=(INT(((6-LE)*(fnr(7)+1)*200)*((5-LE)*3)))+fnr(1000)+100
  2053.         w(4,1)=w(4,1)+hex
  2054. 3815    W(6,1)=W(2,1)-(W(3,1)+W(4,1))
  2055.         MO=MO+W(6,1)
  2056.         IF MO<0
  2057.         ZZ=fnr(20)+1
  2058.             IF B$(ZZ)<>"RESERVE   "
  2059.             i(2,zz)=0:t$(zz)="TD"
  2060.                         CLS:LOCATE 3,1:COLOR 6
  2061.                         PRINT "  Due to financial problems"
  2062.                         PRINT:PRINT "  the Directors have cancelled"
  2063.                         PRINT:PRINT "  the contract of ";b$(zz)
  2064.                         PRINT:PRINT "  and placed him on the"
  2065.                         PRINT:PRINT "  transfer list":GOSUB click:CLS
  2066.             END IF
  2067.         END IF
  2068. 3816    W(6,1)=W(6,1)-W(5,1)
  2069. 3817    IF mht=1 AND w(1,1)>(rst(1)+rst(2)) THEN w(1,1)=(rst(1)+rst(2))
  2070. 3820    DATA "ATTENDANCE","RECEIPTS      £","WAGES         £"
  2071.         DATA "GENERAL EX    £","LOAN INTEREST £","BALANCE       £"
  2072. 3825    
  2073.         LOCATE 1,5:COLOR hdg
  2074.         PRINT "Financial Data"
  2075. 3830    RESTORE 3820
  2076.         Y=4:COLOR txt
  2077.         FOR N=1 TO 6
  2078.             READ Z$
  2079.             LOCATE Y,5
  2080.             PRINT Z$;FNTB$(23);W(N,1)
  2081.             Y=Y+2
  2082. 3899            NEXT N
  2083.         att=w(1,1):rec=w(2,1):GOSUB click
  2084.         CLS
  2085.         RETURN 
  2086.  
  2087. ' ---------------------
  2088.  
  2089. 3900    COLOR 3    
  2090.         X=INT(RND(1)*22)+3
  2091.         X=X+INT(RND(1)*22)
  2092.         IF (P=1 AND X>22) OR (P=2 AND X>15) THEN 3900
  2093. 3905    IF (P=1 AND MID$(E$,X,1)<>"P") OR (P=2 AND (X= N1 OR X=N2 OR X=SB1 OR X=SB2)) THEN 3900
  2094. 3910    IF P=1 AND W(8,1)<8
  2095.             LOCATE W(8,1)+14,1
  2096.             PRINT B$(X);" ";fnd$(M)
  2097.             i(3,x)=i(3,x)+1
  2098.         END IF
  2099. 3912    IF P=2 AND W(8,2)<8
  2100.             LOCATE W(8,2)+14,18
  2101.             PRINT C$(H(X));" ";fnd$(M)
  2102.         END IF
  2103. 3999    RETURN 
  2104.  
  2105. ' ---------------------
  2106.  
  2107. 4050    IF (CP=3 AND R1=7) OR (CP=2 AND R2=6)
  2108.             I$="S-FINAL"
  2109.             ATT=45000+INT(RND*5000)
  2110.         END    IF
  2111. 4055    IF (CP=3 AND R1=8) OR (CP=2 AND R2=7)
  2112.             I$="F I N A L "
  2113.             ATT=85000+INT(RND*5000)
  2114.         END IF
  2115. 4060    RETURN 
  2116.  
  2117. ' ---------------------
  2118.  
  2119. 4070    AA=fnr(5)+2:BB=fnr(5)+2
  2120.         IF AA=BB THEN aa=aa+1
  2121.         IF aa>bb THEN bb=aa-1:GOTO 4075
  2122.         IF bb>aa THEN aa=bb-1
  2123. 4075    FOR n=21 TO 26:LOCATE n,1:PRINT SPACE$(30):NEXT
  2124.     LOCATE 21,2:COLOR 4
  2125.     PRINT "PENALTY SHOOT OUT RESULT       "
  2126.     GOSUB click:COLOR 6
  2127.     LOCATE 23,2:PRINT A$(LE,1);" ";fnd$(AA);"   ";A$(LY,OP);" ";fnd$(BB)
  2128.     GOSUB click:RETURN 
  2129.  
  2130. ' ---------------------
  2131.  
  2132. 4090    IF CP=2
  2133.             R2=R2-1
  2134.             GOSUB 3290
  2135.         END IF
  2136. 4095    RETURN 
  2137.  
  2138. ' ---------------------
  2139.  
  2140. 4100    IF fnr(70)+1<>18 OR M<10 THEN RETURN 
  2141. 4110    X=fnr(20)+1
  2142.         IF MID$(E$,X,1)="P"
  2143.             T(X)=T(X)+3
  2144.             LOCATE 13,5
  2145.             GOSUB WAIT_WHILE
  2146.             PRINT "  ";B$(X);" BOOKED    "
  2147.             GOSUB delay
  2148.             RETURN 
  2149.         END IF
  2150. 4112    GOTO 4110
  2151.  
  2152. ' ---------------------
  2153.  
  2154. 5000    CLS
  2155. 5005    REM Main MENU
  2156. 5010    DATA "[A] Edit   ]","[B] Main   ]","[C] Squad  ]"
  2157.     DATA "[D] Finance]","[E] Data   ]","[F] Teams  ]","[G] Games  ]"
  2158.     DATA "[H] Leagues]","[I] Options]","[J] Coach  ]","[K] Med/Dis]"
  2159.     DATA "[L] Terms  ]","[M] Record ]"
  2160.         DATA "[N] Cup    ]","[O] Ground ]"
  2161.         DATA "[P] Frndly ]","[Q] Results]","[R] Play   ]"
  2162. 5015    RESTORE 5010:COLOR 4
  2163.         FOR N=2 TO 19
  2164.             READ Z$
  2165.             LOCATE N+2,1
  2166.             PRINT Z$
  2167.         NEXT N
  2168. 5016    COLOR 4:IF HR<10
  2169.             
  2170.             LOCATE 1,10
  2171.             PRINT " "
  2172.         END IF
  2173. 5017            LOCATE 1,1
  2174. 5018        PRINT "[HOURS = ";FND$(HR);"] "
  2175.         IF Q=9 THEN RETURN 
  2176. 5099    IF Q=9 THEN RETURN 
  2177. 5100    QQ=0
  2178.         Q=0
  2179.         GOSUB 9090
  2180.  
  2181.  
  2182. 5105    COLOR 3:IF Z$="A" THEN GOSUB 5500:z$=" "
  2183. 5106    IF Z$="B" AND LM>1 THEN GOSUB 30:GOTO 5000
  2184. 5108    IF Z$="C" THEN GOTO 70
  2185. 5112    IF Z$="E" THEN GOSUB 5900
  2186. 5113    IF Z$="D" THEN GOSUB 6100
  2187. 5114    IF Z$="F" AND HR >=1 THEN GOSUB 6000
  2188. 5116    IF Z$="G"
  2189.             M=14
  2190.             W=7
  2191.             Q=9:xx=le
  2192.             GOSUB PLAY_MATCH
  2193.             Q=0
  2194.         END IF
  2195. 5118    IF Z$="H" THEN GOSUB 480
  2196. 5119    IF Z$="I" THEN GOSUB 540
  2197. 5120    IF Z$="J" AND HR >=1 THEN GOSUB 2422
  2198. 5121    IF Z$="K" THEN 8900
  2199. 5122    IF Z$="L" THEN 3000
  2200. 5124    IF z$="M" AND (sn>1 OR d(1,1)>0) THEN GOSUB 5300
  2201. 5125    IF z$="N" THEN GOTO c1000
  2202. 5128    IF z$="O" THEN GOTO 5400
  2203. 5130    IF z$="P" AND (ma<9 OR ma>50) THEN GOSUB 2200:GOTO 5000
  2204. 5131    IF z$="Q" AND ma>1 THEN GOSUB 2300:GOTO 5000
  2205. 5133    IF Z$="R"
  2206.             M=4
  2207.             Q=0
  2208.             W=10:xx=le
  2209.             GOTO PLAY_MATCH
  2210.         END IF
  2211. 5199     GOTO 5100
  2212.  
  2213. ' ---------------------
  2214.  
  2215. 5300    CLS:COLOR hdg:PRINT "Records for ";UCASE$(a$(le,1))
  2216. 5305    COLOR 2:PRINT:PRINT TAB(12);"Current Sn   All Sns"
  2217. 5307    COLOR 1:PRINT "Won";TAB(14);rec(1);TAB(26);rec(2)
  2218. 5309    PRINT "Drawn";TAB(14);rec(3);TAB(26);rec(4)
  2219. 5311    PRINT "Lost";TAB(14);rec(5);TAB(26);rec(6)
  2220. 5313    PRINT "For";TAB(14);rec(7);TAB(26);rec(8)
  2221. 5315    PRINT "Against";TAB(14);rec(9);TAB(26);rec(10)
  2222. 5320    COLOR 4:PRINT:PRINT "Winning run";TAB(20);rec(11)
  2223. 5322    PRINT:PRINT "Unbeaten run";TAB(20);rec(12)
  2224. 5324    PRINT:PRINT "Losing run";TAB(20);rec(13)
  2225. 5326    COLOR 7:PRINT:PRINT "Biggest Crowd    ";rec(14)
  2226.         COLOR 6:PRINT rec$(1)
  2227.         COLOR 7:PRINT "Record receipts £";rec(15)
  2228.         COLOR 6:PRINT rec$(2)
  2229. 5328    COLOR 7:PRINT "Record signing  £";rec(16)
  2230. 5399    GOSUB click:GOTO 5000
  2231.  
  2232. 5400    CLS:COLOR hdg:PRINT "Stadium info for ";UCASE$(a$(le,1))
  2233. 5410    COLOR 1:LOCATE 2,1:PRINT:PRINT "STANDING capacity   :";rst(1)
  2234. 5412            PRINT:PRINT "SEATED capacity     :";rst(2)
  2235.                 PRINT:PRINT "TOTAL capacity      :";rst(1)+rst(2)
  2236. 5420    COLOR 7:LOCATE 9,1:PRINT "Ticket prices - STAND : £";rst(3)
  2237.         LOCATE 11,1:PRINT "                SEATS : £";rst(4)
  2238.         COLOR 3:LOCATE 13,1:PRINT "FACILITY rating       : ";rst(5)
  2239.         COLOR 6:PRINT "Available Cash        £";mo;"      "
  2240. 5425    ff=INT((rst(1)+rst(2))*2)*(6-le):ss=(6-le)*12000:tt=(6-le)*5000
  2241. 5430    COLOR 2:PRINT:PRINT "Improve (F)acilities £";ff
  2242.                       PRINT "Add 500 (S)eats      £";ss
  2243.                       PRINT "(C)onvert            £";INT(ss/2)+tt
  2244.                       PRINT "Add 1000 s(T)anding  £";tt
  2245.                       PRINT "(A)mend ticket price"
  2246.                       PRINT "(R)eturn"
  2247. 5460    x$="":DO WHILE x$<>"r" AND x$<>"a" AND x$<>"f" AND x$<>"c" AND x$<>"s" AND x$<>"t"
  2248.         x$=INKEY$
  2249.         LOOP
  2250. 5470    IF x$="f" AND rst(5)<9 AND mo=>ff THEN rst(5)=rst(5)+1:mo=mo-ff
  2251.         IF x$="s" AND rst(2)<40000 AND mo=>ss THEN rst(2)=rst(2)+500:mo=mo-ss
  2252.         IF x$="t" AND rst(1)<20000 AND mo=>tt THEN rst(1)=rst(1)+1000:mo=mo-tt
  2253.         IF x$="c" AND rst(1)>1000 AND rst(2)<39500 AND mo=>(ss+tt) THEN 
  2254.             rst(1)=rst(1)-1000
  2255.             rst(2)=rst(2)+500
  2256.             mo=mo-(ss+tt)
  2257.         END IF
  2258.         IF x$="a" THEN GOSUB 5480:GOTO 5400
  2259. 5475    IF x$="r" THEN GOTO 5000
  2260. 5479    GOTO 5410
  2261.  
  2262. 5480    CLS:COLOR 3:PRINT " Amend ticket prices"
  2263. 5485    LOCATE 3,1:COLOR 1
  2264.         PRINT " STANDING     @  £";rst(3)
  2265.         PRINT:PRINT " SEATS        @  £";rst(4)
  2266. 5487    COLOR 2:LOCATE 9,1
  2267.                 PRINT " A) Increase STANDING price"
  2268.                 PRINT " B) Decrease STANDING price"
  2269.                 PRINT " C) Increase SEAT price"
  2270.                 PRINT " D) Decrease SEAT price"
  2271.                 PRINT " E) RETURN"
  2272. 5490    x$="":DO WHILE x$<>"a" AND x$<>"b" AND x$<>"c" AND x$<>"d" AND x$<>"e"
  2273.         x$=INKEY$
  2274.         LOOP
  2275. 5491    IF x$="e" THEN RETURN
  2276. 5492    IF x$="a" AND rst(3)<rst(4) THEN rst(3)=rst(3)+1
  2277.         IF x$="b" AND rst(3)>1 THEN rst(3)=rst(3)-1
  2278.         IF x$="c" AND rst(4)<((5-le)*5)+20 THEN rst(4)=rst(4)+1
  2279.         IF x$="d" AND rst(4)>rst(3) THEN rst(4)=rst(4)-1
  2280. 5495    GOTO 5485
  2281.  
  2282. 5500    COLOR 2:LOCATE 25,1:PRINT "EDIT (T)EAMS OR (P)LAYERS"
  2283.         z$="":DO WHILE z$<>"t" AND z$<>"p"
  2284.         z$=INKEY$
  2285.                 LOOP:z$=UCASE$(z$)
  2286. 5593    IF Z$="P"
  2287.             GOSUB 5810
  2288.             RETURN 
  2289.         END IF
  2290. 5600    LOCATE 24,1:PRINT "DIVISION"
  2291.         Q=8:GOSUB 9100
  2292. 5691    ZZ=Z
  2293.     GOSUB 5700
  2294. 5699    GOSUB CLEAR_RIGHT_WINDOW
  2295.     RETURN 
  2296.  
  2297. ' ---------------------
  2298.  
  2299. 5700    LOCATE 24,1:PRINT SPACE$(30)
  2300.         FOR N=1 TO 20:COLOR 3
  2301. 5711        LOCATE N,15
  2302.             PRINT CHR$(N+64);FNTB$(20);A$(ZZ,N)
  2303.         NEXT N
  2304. 5717    YY=20
  2305.         Q=9
  2306.         GOSUB 9100
  2307. 5720    IF Z$="R" THEN RETURN 
  2308. 5730    LOCATE 24,1:PRINT SPACE$(28):LOCATE 24,1:PRINT "NEW NAME (MAX 10) -"
  2309.         LOCATE 25,1:PRINT SPACE$(28):LOCATE 25,1:LINE INPUT z$
  2310.     Z$=UCASE$(Z$)
  2311.     INPUT_RESTORE
  2312.     IF LEN (Z$)>10 THEN 5730
  2313. 5735    STRSET A$(ZZ,Z-32),Z$
  2314.         GOTO 5700
  2315.  
  2316. ' ---------------------
  2317.  
  2318. 5810    FOR N=1 TO 22:COLOR 3
  2319. 5811        LOCATE N,15
  2320.             PRINT CHR$(n+64);FNTB$(20);B$(N)
  2321.         NEXT N
  2322. 5817    YY=20
  2323.         Q=9:LOCATE 24,1:PRINT SPACE$(30)
  2324.         GOSUB 9500:z=z-32
  2325.         IF Z>0 AND Z<20
  2326.             PAUSE 1
  2327.             IF B$(Z)="RESERVE   " THEN Z$="R"
  2328.         END IF
  2329. 5820    IF Z$="R"  
  2330.             GOSUB CLEAR_RIGHT_WINDOW
  2331.             RETURN 
  2332.         END IF
  2333. 5830    COLOR 2
  2334.         LOCATE 24,1:PRINT SPACE$(28):LOCATE 24,1:PRINT "NEW NAME (MAX 10) -"
  2335.         LOCATE 25,1:PRINT SPACE$(28):LOCATE 25,1:LINE INPUT z$
  2336.     Z$=UCASE$(Z$)
  2337.     INPUT_RESTORE
  2338.     IF LEN (Z$)<4 THEN 5830
  2339. 5831    IF LEN (Z$)>10 OR LEFT$(Z$,4)="RESE" THEN 5830
  2340. 5835    STRSET B$(Z),Z$
  2341.         GOTO 5810
  2342.  
  2343. ' ---------------------
  2344.  
  2345. 5900    
  2346.         LOCATE 1,13:COLOR hdg
  2347.         PRINT "      D A T A     "
  2348. 5915
  2349. 5916    RESTORE 5915:COLOR txt
  2350.         LOCATE 3,14
  2351.         PRINT M$
  2352.         LOCATE 5,14
  2353.         PRINT A$(LE,1)
  2354.         LOCATE 7,14
  2355.         PRINT "SEASON"
  2356.         LOCATE 7,29
  2357.         PRINT FND$(SE)
  2358.         LOCATE 8,14
  2359.         PRINT "DIVISION"
  2360.         LOCATE 8,29
  2361.         PRINT FND$(LE)
  2362.         LOCATE 9,14
  2363.         PRINT "SKILL LEVEL"
  2364.         LOCATE 9,29
  2365.         PRINT FND$(DI)
  2366.         LOCATE 10,14
  2367.         PRINT "DIFFICULTY"
  2368.         LOCATE 10,29
  2369.         PRINT FND$(SK)
  2370.         LOCATE 11,14
  2371.         PRINT "L.M. PLAYED"
  2372.         LOCATE 11,29
  2373.         PRINT FND$(LM-1)
  2374. 5917
  2375. 5918
  2376. 5919
  2377. 5929    IF ST<2 AND MA<59 AND B>0
  2378.         LOCATE 13,14:PRINT "LC ";LEFT$(A$(B,C),8);" ";B;" ";LEFT$(K$,1)
  2379.         END IF
  2380. 5930    IF st<>3 AND ma<62 AND st<>1 AND O>0 THEN 
  2381.                 LOCATE 15,14:PRINT "FA ";LEFT$(a$(O,R),8);" ";O;" ";LEFT$(j$,1)
  2382.         END IF
  2383. 5944    IF MA>44
  2384.             LOCATE 17,14
  2385.             PRINT "TRANSFER D'DLINE"
  2386.         END IF
  2387. 5950    GOSUB click
  2388. 5999    GOSUB CLEAR_RIGHT_WINDOW
  2389.         RETURN 
  2390. ' ---------------------------
  2391.  
  2392. 6000            Q=8
  2393.         YY=5
  2394.         GOSUB 9100
  2395.         Z1=Z
  2396. 6015        FOR n=1 TO 20:COLOR 3
  2397.             LOCATE N,14
  2398.             PRINT CHR$(n+64);" ";FNTB$(18);
  2399.             PRINT A$(Z1,N);"    "
  2400.         NEXT N
  2401. 6016    Q=7
  2402.         YY=20
  2403.         GOSUB 9100:z=z-32
  2404.         Z2=Z
  2405. 6017    IF Z2=1 AND Z1=LE THEN 6016
  2406. 6040    GOSUB CLEAR_RIGHT_WINDOW:COLOR 3
  2407.         LOCATE 1,14
  2408.         PRINT A$(Z1,Z2);"  ";
  2409.         IF Z1<5 THEN PRINT "DIV ";FND$(Z1)
  2410. 6042    GOSUB 9120
  2411.         VM=Z2
  2412.         DM=Z1
  2413.         YM=Z3
  2414. 6047    XM=Z1+(Z2-1)+Z3-Z4+Z6
  2415.         ZM=Z4:TM=Z2
  2416. 6050    Y$="5 -3 -2"
  2417.         IF Z4>2
  2418.             Y$="4 -4 -2"
  2419.             IF Z4=4 THEN Y$="4 -3 -3"
  2420.         END IF
  2421. 6052            LOCATE 2,14
  2422.         PRINT "(";Y$;" )"
  2423. 6060    Y=1
  2424.         FOR N=XM TO (XM+(ZM*14)) STEP ZM
  2425. 6062        LOCATE Y+3,14:PRINT CHR$(y+64);FNTB$(17);C$(N);" ";MID$(H$,Y,1);" ";
  2426. 6075        ZZ=N+ZM
  2427.             GOSUB 9130
  2428.             PRINT FND$(Z3+INT(YM/1.55)) 
  2429. 6080        Y=Y+1
  2430.         NEXT N:q=9:GOSUB 5016:q=0
  2431. 6086            LOCATE 25,1:COLOR 2
  2432.         PRINT "(R)ETURN (M)ORE (P)LAYER"
  2433.         COLOR 3
  2434.         IF XT=99
  2435.             XT=0
  2436.             GOTO 6099
  2437.         END IF
  2438.         END_LOOP = 0
  2439.         JAY$=INKEY$
  2440.         JAY$=UCASE$(JAY$)
  2441.         SELECT CASE JAY$
  2442.             CASE "P"
  2443.                 END_LOOP = 1
  2444.             CASE "M"
  2445.                 END_LOOP = 2
  2446.             CASE "R"
  2447.                 END_LOOP = 3
  2448.         END SELECT
  2449.         IF END_LOOP = 0 THEN 6086
  2450.         IF END_LOOP = 1 THEN 6200
  2451.         IF END_LOOP = 2
  2452.                 IF HR>0 THEN SUB_MENU_F
  2453.         END IF
  2454. 6099    GOSUB CLEAR_RIGHT_WINDOW
  2455.         RETURN 
  2456.  
  2457. SUB_MENU_F:
  2458.     GOSUB CLEAR_RIGHT_WINDOW
  2459.     GOTO 6015
  2460.  
  2461. ' ---------------------
  2462.  
  2463. 6100    LOCATE 1,13:COLOR hdg
  2464.         PRINT "     FINANCE      "
  2465.         LOCATE 6,14:COLOR txt
  2466.         PRINT "BANK BL  £";FND$(MO)
  2467. 6102    LOCATE 8,25
  2468.         PRINT "      "
  2469.         LOCATE 8,14
  2470.         PRINT "BANK LN  £";FND$(LO)
  2471. 6110    OV=100000*((6-LE)*(4-DI))
  2472.         LOCATE 10,14
  2473.         PRINT "MAX LOAN £";FND$(OV)
  2474. 6115    LOCATE 12,14
  2475.         PRINT "INTEREST ";USING "##.##";IR;
  2476.         PRINT "%"
  2477. 6120    X=0
  2478.         FOR N=1 TO 22
  2479.             X=X+E(N)
  2480.         NEXT N
  2481.         IF Q=9 THEN RETURN 
  2482. 6122    LOCATE 14,14
  2483.         PRINT "WAGES PW £";FND$(INT(X/40))
  2484. 6130    Q=9
  2485.         GOSUB 5016
  2486.         Q=0:COLOR 2:LOCATE 25,1:PRINT "(V)ISIT BANK OR (R)ETURN"
  2487.         z$="":DO WHILE z$<>"v" AND z$<>"r"
  2488.                 z$=INKEY$
  2489.                 LOOP
  2490.         IF Z$="r" THEN
  2491.             Z$=" "
  2492.             GOTO 6199
  2493.         END IF
  2494. 6130    LOCATE 25,1:PRINT "(B)ORROW OR (P)AY BACK     "
  2495.         z$="":DO WHILE z$<>"b" AND z$<>"p"
  2496.         z$=INKEY$
  2497.         LOOP 
  2498.         IF z$="b" AND hr<4 THEN 6100
  2499. 6140    z=0:IF Z$="p" THEN GOTO 6148
  2500. 6140    COLOR 7:LOCATE 24,1 PRINT "LOAN REQUIRED £";Z
  2501.                 COLOR 2:LOCATE 25,1:PRINT "(H)IGHER  (L)OWER OR (A)GREE"
  2502.                 X$="":DO WHILE X$<>"h" AND X$<>"l" AND X$<>"a"
  2503.                 X$=INKEY$
  2504.                 LOOP
  2505.                 IF X$="h" AND (LO+z+100000<OV+1) THEN Z=Z+100000:GOTO 6140
  2506.                 IF x$="h" THEN 6140
  2507.                 IF X$="l" AND Z>199999 THEN Z=Z-100000:GOTO 6140
  2508.                 IF x$="l" AND z<200000 THEN 6140
  2509. 6145            MO=MO+Z
  2510.         LO=LO+Z
  2511.         GOSUB CLEAR_RIGHT_WINDOW
  2512.         hr=hr-4:GOTO 6100
  2513. 6148    Z=MO:IF Z>LO THEN Z=LO
  2514. 6149    IF Z<0 THEN z=0
  2515. 6150    COLOR 7:LOCATE 24,1 PRINT "HOW MUCH TO PAY OFF £";Z
  2516.                 COLOR 2:LOCATE 25,1:PRINT "(L)OWER OR (A)GREE      "
  2517.                 X$="":DO WHILE X$<>"l" AND X$<>"a"
  2518.                 X$=INKEY$
  2519.                 LOOP
  2520.                 IF X$="l" AND Z>0 THEN Z=Z-10000:GOTO 6149
  2521. 6155            MO=MO-Z
  2522.         LO=LO-Z
  2523.         GOSUB CLEAR_RIGHT_WINDOW
  2524.         GOTO 6100
  2525. 6199            GOSUB CLEAR_RIGHT_WINDOW
  2526.         RETURN 
  2527.  
  2528. ' ---------------------
  2529.  
  2530. 6200            Q=6
  2531.         YY=15
  2532.         GOSUB 9100
  2533.         z=z-32:P=Z
  2534.         PP=Z
  2535.         GOSUB CLEAR_RIGHT_WINDOW:
  2536. 6215    FOR N=XM TO XM+((P-1)*ZM)
  2537.         NEXT N
  2538.         Y$=C$(N-1)
  2539.         YZ=N-1
  2540. 6220    ZZ=N-1+ZM
  2541.         GOSUB 9130
  2542.         LOCATE 3,15:COLOR 7
  2543.         PRINT Y$
  2544. 6222    LOCATE 5,15
  2545.         PRINT "AGE   ";FND$(Z5)
  2546. 6223    Z3=Z3+INT(YM/1.55)
  2547. 6224    LOCATE 7,15
  2548.         PRINT "SKILL ";
  2549.         PRINT FND$(Z3)
  2550. 6225    LOCATE 9,15
  2551.         PRINT "FORM  ";FND$(Z4)
  2552. 6226    y$=MID$(h$,z,1):x$="G/Keeper":IF y$="D" THEN x$="Defender"
  2553. 6227    IF y$="M" THEN x$="Midfield"
  2554. 6228    IF y$="F" THEN x$="Forward"
  2555. 6229    LOCATE 11,15
  2556.         PRINT UCASE$(x$)
  2557. 6230    CO=INT((5-DM)*20)+(Z3*20)+(Z4*2)
  2558. 6231    IF DM=5 THEN CO=INT(CO*0.6)
  2559. 6232    IF PP>12 THEN CO=INT(CO*1.7)
  2560. 6233    IF Z3>6
  2561.             CO=CO*3
  2562.             IF Z3=9 THEN CO=INT(CO*2)
  2563.         END IF
  2564. 6234    IF Z5>29 THEN CO=INT(CO*.6)
  2565. 6235    CO=CO*1000
  2566. 6237    IF Q=9 THEN RETURN 
  2567. 6238    LOCATE 13,15
  2568.         PRINT "£";FND$(CO)
  2569. 6280    COLOR 2:LOCATE 25,1
  2570.         PRINT "(R)ETURN OR (O)FFER"
  2571.         END_LOOP = 0
  2572.         JAY$=INKEY$
  2573.         JAY$=UCASE$(JAY$)
  2574.         SELECT CASE JAY$
  2575.             CASE "O"
  2576.                 END_LOOP = 2
  2577.             CASE "R"
  2578.                 END_LOOP = 1
  2579.         END SELECT
  2580.         IF END_LOOP = 0 THEN 6280
  2581.         IF END_LOOP = 2
  2582.             IF MA < 45 THEN GOSUB 430
  2583.             IF OF < CO THEN 6280
  2584.         END IF
  2585. 6299    Z4=ZM
  2586.         Q=9
  2587.         GOSUB 5005
  2588.         Q=0
  2589.         GOTO 6040
  2590. 6500    RETURN 
  2591.  
  2592. ' ---------------------
  2593.  
  2594.  
  2595. PLAY_MATCH:
  2596.         U$="11212113151121211315111135214113152141214111315212113152141135"
  2597.         IF (MA=62 AND RE=0) OR MA=63 THEN 1090
  2598. 7001    xht=0:ATT=0:temp=0
  2599.         I$=" "
  2600.         Q$="LEAGUE"
  2601.         RA=0
  2602.         IF MFG=99 THEN 7014
  2603. 7002    Z$=MID$(U$,MA,1)
  2604.         CP=VAL(Z$):IF cp>3 THEN temp=99
  2605.         IF (CP=1 OR CP=3) AND (fnr(3)+1=3 OR MA>49) AND MA>10 AND MW<40 AND MFG=0
  2606.             MFG=99
  2607.             GOTO 7014
  2608.         END IF
  2609. 7003    IF MFG=77 THEN MFG=55
  2610. 7005    I$=" "
  2611.         IF O(2)=1 AND CP=1 THEN    A&(LE,1)=(6-LE)*10000+3000
  2612. 7010    IF ((CP=2 AND R2<7) OR CP>3)
  2613.             RA=7
  2614.             IF CP>3
  2615.                 CP=CP-2
  2616.                 IF RE=0 THEN RA=6
  2617.             END IF
  2618.     END IF
  2619. 7012    IC= 1
  2620.         IF RA=6 OR (CP=2 AND ST>1) OR (CP=3 AND (ST=1 OR ST=3))
  2621.         IF CP=3 AND temp=0 THEN r1=r1+1
  2622.                 GOTO 7495
  2623.         END IF
  2624. 7014    IF MFG=99 AND M<>14
  2625.             MFG=77
  2626.             CP=1
  2627.             GOSUB 3300:IF temp=0 THEN GOSUB x7500
  2628.             IF Q=6
  2629.                 Q=0
  2630.                 GOTO 5000
  2631.             END IF
  2632.      END IF
  2633. 7015    IF MFG=99
  2634.             LOCATE 3,15
  2635.             PRINT "MIDWEEK MATCH"
  2636.             GOSUB 9170
  2637.             GOSUB CLEAR_RIGHT_WINDOW
  2638.             RETURN 
  2639.     END IF
  2640. 7024    IF CP=1
  2641.             GOSUB 7505
  2642.             IF Q=0
  2643.                 GOSUB 7600
  2644.                 LM=LM+1
  2645.                 MM=MM+1
  2646.                 GOSUB 200
  2647.                 GOTO 7033
  2648.             END IF
  2649.     END IF
  2650. 7025    IF Q=0 THEN CLS 
  2651. 7026    IF CP=2
  2652.             Q$="LEAGUE CUP "
  2653.             LOCATE 1,M
  2654.             PRINT Q$
  2655.             IF (LE=5 OR (LE<3 AND R2=1)) OR ST= 2 OR ST=3 THEN IC=0
  2656.     END IF
  2657. 7027    IF CP=3
  2658.             Q$="F. A. CUP "
  2659.             LOCATE 1,M
  2660.             PRINT Q$
  2661.             IF (LE<3 AND R1=2) OR ST=1 OR ST=3 THEN IC=0
  2662.     END IF
  2663. 7028    LG=2
  2664.         IF MA=3 OR MA=13 OR MA=48 THEN LG=1
  2665. 7029    IF CP=2
  2666.             Q$=Q$+"ROUND "+FND$(R2)
  2667.             LOCATE 2,M
  2668.             PRINT "ROUND  ";fnd$(R2);
  2669.                         z$="1st Leg":IF lg=2 THEN z$="2nd Leg"
  2670.             IF MA<16 OR MA=48 OR MA=50 THEN PRINT "  - ";z$
  2671.                         GOSUB wait_while
  2672.     END IF
  2673. 7030    IF CP<>1 THEN GOSUB 4050
  2674.     IF CP=3
  2675.             Q$=Q$+"ROUND "+FND$(R1)
  2676.             LOCATE 2,M
  2677.             PRINT "ROUND ";fnd$(R1)
  2678.             IF IC=1
  2679.                                 LOCATE 4,m
  2680.                                 PRINT j$;a$(o,r)
  2681.                 HT=1
  2682.                 W$=J$
  2683.                 LY=O
  2684.                 OP=R
  2685.                 LOCATE 5,M
  2686.                 PRINT I$
  2687.             END IF
  2688.                         GOSUB wait_while
  2689.     END IF
  2690. 7031    IF CP=2 AND IC=1
  2691.             LOCATE 4,M
  2692.             PRINT K$;A$(B,C)
  2693.             HT=1
  2694.             LY=B
  2695.             W$=K$
  2696.             OP=C
  2697.             LOCATE 5,M
  2698.             PRINT I$
  2699.         END IF
  2700. 7032    IF RE=1 AND CP>1
  2701.             I$="REPLAY"
  2702.             
  2703.             LOCATE 3,M
  2704.             PRINT I$
  2705.             MFG=55
  2706.         END IF
  2707. 7033    IF Q=9 AND CP>1
  2708.             GOSUB 9170
  2709.             GOSUB CLEAR_RIGHT_WINDOW
  2710.             RETURN 
  2711.         END IF
  2712. 7034    IF Q=9
  2713.             GOSUB CLEAR_RIGHT_WINDOW
  2714.             RETURN 
  2715.         END IF
  2716. 7035    IF CP=3 AND temp=0 THEN R1=R1+1
  2717. 7036    IF CP=2 AND LG=2 THEN R2=R2+1
  2718. 7040    IF CP>1
  2719.             GOSUB 3200
  2720.             IF RE=0 AND ((CP=3 AND R1<9) OR (CP=2 AND LG=2 AND R2<8))
  2721.                 GOSUB 8070
  2722.                 LG=1
  2723.             END IF
  2724.     END IF
  2725. 7490    IF MFG=55 THEN MFG=0
  2726. 7495    IF ma=8 OR ma=18 OR ma=25 OR ma=32 OR ma=45 OR ma=53 OR ma=61 THEN GOSUB c2000:
  2727. 7499    MA=MA+1
  2728.         GOSUB x7500:GOTO 5000
  2729.  
  2730. x7500:  IF cp=1 THEN GOSUB 30
  2731. x7502:  IF temp<>0 OR (cp<>1 AND le<3 AND ma<12) OR (cp=2 AND le=5) THEN RETURN
  2732. x7503:  rmc=rmc+1:res%(rmc,1)=ly:res%(rmc,2)=op:res%(rmc,3)=aa
  2733.         res%(rmc,5)=cp:IF xht<>1 THEN res%(rmc,5)=res%(rmc,5)+10
  2734.         res%(rmc,4)=bb
  2735.         res%(rmc,6)=att
  2736. x7505:  IF aa>bb THEN rec(1)=rec(1)+1:rec(2)=rec(2)+1
  2737.         IF aa=bb THEN rec(3)=rec(3)+1:rec(4)=rec(4)+1
  2738.         IF aa<bb THEN rec(5)=rec(5)+1:rec(6)=rec(6)+1
  2739.         rec(7)=rec(7)+aa:rec(8)=rec(8)+aa
  2740.         rec(9)=rec(9)+bb:rec(10)=rec(10)+bb
  2741. x7510:  IF aa>bb THEN 
  2742.           rec(21)=rec(21)+1:IF rec(21)>rec(11) THEN rec(11)=rec(21)
  2743.           rec(22)=rec(22)+1:IF rec(22)>rec(12) THEN rec(12)=rec(22)
  2744.           rec(23)=0
  2745.         END IF
  2746.         IF aa=bb THEN 
  2747.           rec(22)=rec(22)+1:IF rec(22)>rec(12) THEN rec(12)=rec(22)
  2748.           rec(21)=0:rec(23)=0
  2749.         END IF
  2750.         IF aa<bb THEN 
  2751.           rec(23)=rec(23)+1:IF rec(23)>rec(13) THEN rec(13)=rec(23)
  2752.           rec(21)=0:rec(22)=0
  2753.         END IF
  2754. x7520:  IF xht=1 AND att>rec(14) THEN rec(14)=att:rec$(1)=a$(ly,op)
  2755.         IF xht=1 AND rec>rec(15) THEN rec(15)=rec:rec$(2)=a$(ly,op)
  2756. x7599:  RETURN
  2757.  
  2758. 7505    x$="PREMIER LEAGUE":IF xx=2 THEN x$="DIVISION ONE"
  2759. 7506    IF xx=3 THEN x$="DIVISION TWO"
  2760. 7507    IF xx=4 THEN x$="DIVISION THREE"
  2761. 7508    IF xx=5 THEN x$="NON LEAGUE"
  2762. 7509    IF q=3 THEN q=0:RETURN
  2763. 7520    IF    Q=0
  2764.             CLS:COLOR hdg
  2765.             LOCATE 1,1
  2766.             PRINT x$;" FIXTURES"
  2767.         END IF
  2768.  
  2769. 7530    Y=3:X=1
  2770.         FOR N=1 TO 10
  2771.             GOSUB 1300
  2772.                         COLOR txt:IF (HT=1 OR OT=1) THEN COLOR 7
  2773. 7540        LOCATE Y,M
  2774.             PRINT LEFT$(A$(LE,HT),W);
  2775.             PRINT " V  ";
  2776.             PRINT LEFT$(A$(LE,OT),W)
  2777.             Y=Y+2
  2778.             X=X+2
  2779. 7541                IF HT=1
  2780.                 MHT=1
  2781.                 MAT=OT
  2782.                 MHL=LE
  2783.                 MAL=LE
  2784.                 LY=MAL
  2785.                 OP=MAT
  2786.             END IF
  2787. 7542                IF OT=1
  2788.                 MHT=HT
  2789.                 MAT=1
  2790.                 MHL=LE
  2791.                 MAL=LE
  2792.                 LY=MHL
  2793.                 OP=MHT
  2794.             END IF
  2795. 7543        IF Q=6 THEN RETURN
  2796. 7544            NEXT N
  2797.         IF Q=0 AND O (2)=0 THEN GOSUB 8300
  2798. 7546    IF Q=9
  2799.             GOSUB click
  2800.             RETURN 
  2801.     END IF
  2802. 7549    GOSUB click
  2803.         A=0
  2804.     GOSUB 8800
  2805. 7555    RETURN 
  2806.  
  2807. ' ---------------------
  2808.  
  2809. 7600    FOR F=1 TO 5
  2810.             CLS
  2811.             REDIM W(20,2)
  2812. R7605:        xx=f:q=3:GOSUB 7505
  2813. R7608:          COLOR hdg:PRINT x$;" RESULTS"
  2814. R7614:        X=1
  2815.             Y=3:COLOR 7
  2816.             FOR N=1 TO 10:GOSUB 1300
  2817. 7625            Z3=INT((A&(F,HT)/10000))
  2818.                 ZM=Z3
  2819.                 Z3=INT((A&(F,OT)/10000))
  2820. R7632:            HC=3.5+(INT((20-S(F,HT,3))/10))+INT((ZM-Z3)/1.7)
  2821.                 IF HC<0 THEN HC=1
  2822. R7633:            AC=2.5+(INT((20-S(F,OT,3))/10))+INT((Z3-ZM)/1.7)
  2823.                 IF AC<0 THEN AC=0
  2824. R7635:            IF HT<1 OR HT>20 OR OT<1 OR OT>20
  2825.                     LOCATE 1,1
  2826.                     PRINT HT,OT
  2827.                     ROB$=INPUT$(1)
  2828.                 END IF
  2829.                 W(HT,1)=INT((RND(1)*HC)+0.6)
  2830.                 W(OT,1)=INT((RND(1)*AC)+0.4)
  2831. R7637:            W(OT,2)=W(HT,1)
  2832.                 W(HT,2)=W(OT,1)
  2833. R7639:            IF O(2)=1 THEN R7650
  2834. R7640:            IF F=LE AND HT=1
  2835.                     W(HT,1)=AA
  2836.                     W(OT,2)=AA
  2837.                     W(HT,2)=BB
  2838.                     W(OT,1)=BB
  2839.             END IF
  2840. R7642:            IF F=LE AND OT=1
  2841.                     W(HT,1)=BB
  2842.                     W(OT,2)=BB
  2843.                     W(HT,2)=AA
  2844.                     W(OT,1)=AA
  2845.             END IF
  2846. R7650:            LOCATE Y,2
  2847.                 PRINT A$(F,HT);"  ";FND$(W(HT,1));" ";A$(F,OT);"  ";FND$(W(OT,1))
  2848.                 Y=Y+2
  2849.                 X=X+2
  2850. R7665:            IF Q=6 THEN RETURN 
  2851.         IF f=le
  2852.            IF ht=1 THEN xht=1:aa=w(ht,1):bb=w(ot,1)
  2853.            IF ot=1 THEN aa=w(ot,1):bb=w(ht,1)
  2854.         END IF
  2855. R7670:    NEXT N
  2856. R7675:                GOSUB 7800
  2857.             IF O(1)=0
  2858.                 GOSUB click
  2859.             END IF
  2860. R7680:    NEXT F:RETURN 
  2861.  
  2862. ' ---------------------
  2863.  
  2864. 7800    X=1
  2865.         FOR N=1 TO 20
  2866. 7805        IF MM<17
  2867.                 A=VAL(MID$(V$(MM+1),X,2))
  2868.                 X=X+2
  2869.             END IF
  2870. 7806        IF MM>16
  2871.                 A=VAL(MID$(V$((MM+1)-17),X,2))
  2872.                 X=X+2
  2873.             END IF
  2874. 7810        IF F<>LE THEN 7840
  2875. 7815        D(A,1)=D(A,1)+1
  2876. 7820        IF W(A,1)>W(A,2)
  2877.                 D(A,2)=D(A,2)+1
  2878.                 D(A,7)=D(A,7)+3
  2879.             END IF
  2880. 7822        IF W(A,1)<W(A,2) THEN D(A,4)=D(A,4)+1
  2881. 7824        IF W(A,1)=W(A,2)
  2882.                 D(A,3)=D(A,3)+1
  2883.                 D(A,7)=D(A,7)+1
  2884.             END IF
  2885. 7826        D(A,5)=D(A,5)+W(A,1)
  2886.             D(A,6)=D(A,6)+W(A,2)
  2887. 7840        IF W(A,1)>W(A,2) THEN S(F,A,2)=S(F,A,2)+3
  2888. 7842        S(F,A,1)=S(F,A,1)+1
  2889. 7844        IF W(A,1)=W(A,2) THEN S(F,A,2)=S(F,A,2)+1
  2890. 7850        IF Q=6 THEN RETURN 
  2891. 7870    NEXT N
  2892.         RETURN 
  2893.  
  2894. ' ---------------------
  2895.  
  2896. 8020    Z1=fnr((7-R2))+1
  2897.     IF Z1>5 OR (CP=3 AND Z1>4) THEN 8020
  2898. 8030    Z2=fnr(19)+2
  2899. 8035    GOSUB 9120
  2900. 8038    IF Z5=3 OR (CP=2 AND Z5=2) OR (CP=3 AND Z5=1) THEN 8020
  2901. 8040    IF CP=2
  2902.         B=Z1
  2903.         C=Z2
  2904.         RETURN 
  2905.     END IF
  2906. 8050    IF CP=3 THEN RETURN 
  2907. 8070    IF NT=9 THEN GOSUB 8150
  2908. 8072    IF NT<>9 AND B<>0 AND CP=2
  2909.         Z1=B
  2910.         Z2=C
  2911.         GOSUB 9120
  2912.         GOSUB 8101
  2913.     END IF
  2914. 8074    IF NT<>9 AND O<>0 AND CP=3
  2915.         Z1=O
  2916.         Z2=R
  2917.         GOSUB 9120
  2918.         GOSUB 8101
  2919.     END IF
  2920. 8090    IF LE<3 AND ((CP=2 AND R2=2) OR (CP=3 AND R1=3)) THEN IC=1
  2921. 8098    IF NT<>9 AND IC=1 THEN GOSUB 725
  2922. 8099    NT=0
  2923.     IC=0
  2924.     Q=0
  2925.     RETURN 
  2926.  
  2927. ' ---------------------
  2928.  
  2929. 8101    IF Z5=0 AND CP=2 THEN Z5=2
  2930. 8102    IF (Z5=1 AND CP=2) OR (Z5=2 AND CP=3) THEN Z5=3
  2931. 8105    IF Z5=0 AND CP=3 THEN Z5=1
  2932. 8110    Z=Z3*10000+Z4*1000+Z5*100+Z6
  2933.     A&(Z1,Z2)=Z
  2934.     RETURN 
  2935.  
  2936. ' ---------------------
  2937.  
  2938. 8150    IF CP=2 AND ST=0
  2939.             ST=2
  2940.             RETURN 
  2941.         END IF
  2942. 8152    IF CP=3 AND ST=0
  2943.             ST=1
  2944.             RETURN 
  2945.         END IF
  2946. 8154    ST=3
  2947.         RETURN 
  2948.  
  2949. ' ---------------------
  2950.  
  2951. 8200    FOR N=1 TO 20
  2952.             Z1=5
  2953.             Z2=N
  2954.             GOSUB 9120
  2955.             CP=2
  2956.             GOSUB 8101
  2957.         NEXT N
  2958.         CP=0
  2959.         RETURN 
  2960.  
  2961. ' ---------------------
  2962.  
  2963. 8300    SX=0:replay=0:GOSUB click
  2964. 8301    IF replay=1
  2965.          IF w$="HOME TO " THEN w$="AWAY TO ":replay=2
  2966.          IF replay=1 AND w$="AWAY TO " THEN w$="HOME TO "
  2967.          GOSUB 8800:GOSUB x7500
  2968.          IF xht=1 THEN xht=0
  2969.          game$=" "+A$(LE,1)+" "+W$+" "+A$(LY,OP)+" "
  2970.         END IF
  2971.         GOSUB 800:CLS
  2972.      SX=0:P=1:PP=2
  2973.          IF replay=2 AND MHT=1 THEN MHT=OP
  2974.          IF replay=1 AND MHT<>1 THEN MHT=1:MHL=LE
  2975.     IF HT<>1
  2976.     P=2
  2977.     PP=1
  2978.     END IF
  2979.         IF w$="HOME TO " THEN xht=1
  2980. 8302    IF MHT=1
  2981.     W(20,1)=INT(W(3,1)*0.25)
  2982.     GOTO 8304
  2983.     END IF
  2984. 8303    W(20,2)=INT(W(3,2)*0.3)
  2985. 8304    Q=3
  2986. 8305    IF SX<>1 THEN W(5,2)=40+(6-LY)+CP+(fnr(4)+1)
  2987. 8345    FOR N=1 TO 20:COLOR 4
  2988.             LOCATE N,1
  2989.             PRINT SPACE$(31)
  2990.             IF Q<>3 AND N=14
  2991.                 N=20
  2992.                 Q=0
  2993.             END IF
  2994. 8347    NEXT N
  2995.         DATA " G/KEEPER ","  DEFENCE "," MIDFIELD ","  FORWARD "
  2996.         DATA " FIT/FORM "," ","POSSESSION","  SHOTS   ","  GOALS   "
  2997. 8348    RESTORE 8347
  2998.         FOR N=1 TO 9:COLOR 7
  2999.                         IF n>5 THEN COLOR 4
  3000.             READ Z$
  3001.             LOCATE N+2,11
  3002.             PRINT Z$
  3003.         NEXT N
  3004.  
  3005. 8389    IF SX<>0 THEN RETURN 
  3006. 8390    SUBX=0
  3007.         SSB=0
  3008.         GA=0
  3009.         CL=0
  3010.         S1=0
  3011.         S2=0
  3012.         AA=0
  3013.          BB=0
  3014.         FOR N = 6 TO 8    
  3015.             W(N,1)=0    
  3016.             W(N,2)=0
  3017.         NEXT N
  3018. 8400    FOR M=1 TO 90
  3019. 8410    LOCATE 1,1:COLOR 1:PRINT game$
  3020. 8420    cc=3:FOR N=1 TO 8
  3021.                 LOCATE CC,7:COLOR 6
  3022.                 PRINT fnd$(W(N,1))
  3023.                 LOCATE CC,23
  3024.                 PRINT fnd$(W(N,2))
  3025.                 CC=CC+1
  3026. 8425            IF N=5 THEN CC=CC+1
  3027. 8452        NEXT N
  3028.             GOSUB delay
  3029.             LOCATE 17,15:COLOR 1
  3030.             PRINT fnd$(M)                            ' Print Elapsed time
  3031.             L=6
  3032.             CC=8
  3033.             W(10,1)=1
  3034.             W(10,2)=OP
  3035. 8457        IF GA=0 AND SSB<2 AND (M>50 AND M<80)
  3036.                 GOSUB 2800
  3037.                 IF SX >2 THEN GOSUB 8305
  3038.             END IF
  3039. 8460        GA=0
  3040.             IF M>20 THEN GOSUB 4100
  3041. 8462        LOCATE 13,5
  3042.             PRINT SPACE$(24)
  3043. 8463            IF replay>0 THEN COLOR 1:LOCATE 26,1:PRINT "Replay"
  3044. 8465        IF M=1 OR M=45 THEN 
  3045.                   FOR n=24 TO 26:LOCATE n,1:PRINT SPACE$(31):NEXT
  3046.                   GOSUB click
  3047.                 END IF
  3048.  
  3049. 8466        IF PL=1 OR MA=5 OR MA=15 OR MA=50
  3050.                 LOCATE 26,1:COLOR 1
  3051.                 PRINT "1ST LEG   (";fnd$(A2);" - ";fnd$(B2);")"
  3052.             END IF
  3053. 8467        IF M=2 OR M=46 THEN GOSUB 9300
  3054. 8470        LOCATE 25,1:COLOR 4
  3055.             PRINT Q$;" ";I$
  3056.             LOCATE 17,15:COLOR 1
  3057.             PRINT fnd$(M)
  3058. 8471        X=0
  3059.             XX=W(20,PP)
  3060.             X=W(20,P)
  3061.             IF W(5,P)>(W(5,PP)+5)
  3062.                 X=X+2
  3063.                 IF M>55 THEN X=X+5
  3064.             END IF
  3065. 8473        IF W(2,1)<W(4,1) AND P<>1 THEN X=X+((W(4,1)-W(2,1))*4)
  3066. 8480        IF fnr(W(3,PP))+XX+5>fnr(W(3,P))+X
  3067.                 X=P
  3068.                 P=PP
  3069.                 PP=X
  3070.             END IF
  3071. 8490        W(6,P)=W(6,P)+1
  3072.             LL=LY
  3073.             IF P=1 THEN LL=LE
  3074. 8520        IF SX=0 AND M<89 AND fnr(W(4,P))>fnr(W(2,PP)) AND fnr((W(8,P))+1)<3
  3075.                 W(7,P)=W(7,P)+1
  3076.                 GA=1
  3077.                 LOCATE 13,7:COLOR 7
  3078.                 PRINT A$(LL,W(10,P));" SHOOT !"
  3079.                 GOSUB delay
  3080.             END IF
  3081. 8530        IF GA=1 AND INT((((fnr((W(4,P)/5)+1)+fnr(6))> INT(fnr((W(1,PP)+1)+fnr(7)))/100))/3.42)
  3082.                 IF FNR(10) > 7.5
  3083.                     W(8,P)=W(8,P)+1
  3084.                     GA=2
  3085.                     GOSUB 2143
  3086.                 END IF
  3087.             END IF
  3088.             IF P = 2
  3089.                 IF GA = 1 AND W(1,1)=0
  3090.                     IF FNR(10) <8
  3091.                         W(8,P)=W(8,P)+1
  3092.                         GA=2
  3093.                         GOSUB 2143
  3094.                     END IF
  3095.                 END IF
  3096.             END IF
  3097. 8570        SX=0
  3098.             IF GA=0 AND SUBX<2 AND M>2 AND M<88
  3099.                 JAY$=INKEY$
  3100.                 JAY$=UCASE$(JAY$)
  3101.                 IF JAY$ ="S"
  3102.                     GOSUB 2700
  3103.                     SX=1
  3104.                      GOSUB 8305
  3105.                 END IF
  3106.             END IF
  3107. 8590    jay$=INKEY$
  3108.                     IF jay$=CHR$(29) AND speed>1 THEN speed=speed-1
  3109.                     IF jay$=CHR$(28) AND speed<9 THEN speed=speed+1
  3110.  
  3111. 8599    COLOR 4:LOCATE 24,27:PRINT "Speed"
  3112.                 LOCATE 25,27:PRINT "[";STR$(speed);" ]"
  3113. 8750    NEXT M
  3114.  
  3115. 8760    FOR n=24 TO 26:LOCATE n,1:PRINT SPACE$(31):NEXT
  3116.         LOCATE 25,1:INPUT "Enter your score ";aa
  3117.         LOCATE 25,1:INPUT "Enter other score ";bb
  3118. 8765    IF (ma=8 OR ma=18 OR ma=25 OR ma=32 OR ma=45 OR ma=53 OR ma=61) AND aa=bb AND replay=0 THEN replay=1:GOTO 8301
  3119. 8770    RETURN
  3120.  
  3121. ' ---------------------
  3122.  
  3123. 8800    GOSUB 3800:CLS
  3124.         FOR N=1 TO 22
  3125.             ZZ=N
  3126.             GOSUB 9140
  3127. 8801        IF (INT(fnr(100)+1>80)) AND IP=0 AND Z4>1 THEN Z4=INT(Z4-1)
  3128. 8802        IF (O(2)=0 OR CP>1) AND (MID$(E$,N,1)="P" OR MID$(E$,N,1)="R")
  3129.           F(N)=INT(F(N)+1)
  3130.         END IF
  3131. 8804        IF MID$(E$,N,1)="R" OR MID$(E$,N,1)="S" THEN MID$(E$,N,1)=" "
  3132. 8805            IF MID$(E$,N,1)="I" THEN Z4=INT(1)
  3133. 8815            z=(z3*10000000)+(z4*1000000)+(z5*10000)+(z6*1000)
  3134.                 b&(n)=z
  3135.             IF Q=9 THEN RETURN
  3136. 8816        IF MID$(E$,N,1)="1" THEN MID$(E$,N,1)=" "
  3137. 8817        IF MID$(E$,N,1)="2" THEN MID$(E$,N,1)="1"
  3138. 8818        IF T(N)>11
  3139.                 MID$(E$,N,1)="2"
  3140.                 T(N)=0
  3141.             END IF
  3142. 8819        IF RA= 0 AND i(1,N)>0
  3143.                 i(1,N)=i(1,N)-1
  3144.                 GOTO 8821
  3145.             END IF
  3146. 8820        IF N>2 AND i(1,N)=0 AND (MID$(E$,N,1)="P" OR MID$(E$,N,1)="R") AND fnr(38)+1=20
  3147.                 i(1,N)=fnr(18)+1
  3148.                  IF i(1,N)>3 AND B&(N)>20000000
  3149.                     B&(N)=B&(N)-10000000
  3150.                     IF Z5<32 THEN B&(N)=B&(N)+1000
  3151.                 END IF
  3152.             END IF
  3153. 8821        IF i(1,N)>0 THEN MID$(E$,N,1)="I"
  3154. 8822        IF i(1,N)=0 AND (MID$(E$,N,1)<>"1" AND MID$(E$,N,1)<>"2" AND MID$(E$,N,1)<>"P")
  3155.                 MID$(E$,N,1)=" "
  3156.             END IF
  3157. 8824    NEXT N
  3158.         IF CP>1 AND O(1)=0
  3159.             GOSUB click
  3160.         END IF
  3161. 8839    RETURN 
  3162.  
  3163. ' ---------------------
  3164.  
  3165. 8900            CLS:COLOR hdg
  3166.         PRINT FNTB$(14);"DIS PTS   INJURIES"
  3167. 8910    FOR N=1 TO 22:COLOR txt
  3168.             LOCATE N+1,3
  3169.             PRINT B$(N);
  3170.             IF T(N)>0 THEN PRINT FNTB$(17);FND$(T(N))
  3171. 8920        IF i(1,N)>0
  3172.                 z$=" Weeks":IF i(1,n)=1 THEN z$=" Week"
  3173.         LOCATE N+1,24
  3174.         PRINT FND$(i(1,N));z$
  3175.         END IF
  3176. 8950    NEXT N
  3177. 8990    GOSUB click:GOTO 5000
  3178.  
  3179. ' ---------------------
  3180.  
  3181. CLEAR_RIGHT_WINDOW:
  3182.  
  3183.     FOR NZ=1 TO 22
  3184.         LOCATE NZ,13
  3185.         PRINT SPACE$(20)
  3186.     NEXT NZ
  3187.         LOCATE 24,1:PRINT SPACE$(28)
  3188.         LOCATE 25,1:PRINT SPACE$(28)
  3189.     RETURN 
  3190.  
  3191. ' ---------------------
  3192.  
  3193. 9090    Z$=INKEY$
  3194.         IF Z$=" " THEN 9090
  3195.         Z$=UCASE$(Z$) 
  3196.         RETURN 
  3197.  
  3198. ' ---------------------
  3199.  
  3200. 9100            COLOR 2            
  3201.                 IF q<>8 THEN LOCATE 24,1:PRINT SPACE$(28)            
  3202.                 LOCATE 25,1:PRINT SPACE$(38)            
  3203.                 IF Q=9
  3204.                 LOCATE 25,1
  3205.                 PRINT "REF TO CHANGE/U TO RETURN"
  3206.                         z$="":DO WHILE z$<CHR$(97) OR z$>CHR$(117)
  3207.                 z$=INKEY$
  3208.                         LOOP:IF z$="u" THEN z$="R"
  3209.                 IF Z$="R" THEN 9119
  3210.         END IF
  3211.         IF Q=8
  3212.             LOCATE 25,1
  3213.                         PRINT "SELECT 1 TO 5"
  3214.                         z$="":DO WHILE z$<CHR$(49) OR z$>CHR$(53)
  3215.                         z$=INKEY$:
  3216.                         LOOP:z=VAL(z$):GOTO 9119
  3217.         END IF
  3218.         IF Q=7
  3219.                         LOCATE 25,1
  3220.                         PRINT "SELECT A TO T"
  3221.                         z$="":DO WHILE z$<CHR$(97) OR z$>CHR$(116)
  3222.                         z$=INKEY$
  3223.                         LOOP
  3224.         END IF
  3225.         IF Q=6
  3226.                         LOCATE 25,1
  3227.                         PRINT "SELECT A TO O"
  3228.                         z$="":DO WHILE z$<CHR$(97) OR z$>CHR$(111)
  3229.                         z$=INKEY$
  3230.                         LOOP
  3231.         END IF
  3232.         IF Q=5 
  3233.                         LOCATE 25,1
  3234.                         PRINT "SELECT MINIMUM SKILL 1 TO 7"
  3235.                         z$="":DO WHILE z$<CHR$(49) OR z$>CHR$(55)
  3236.                         z$=INKEY$
  3237.                         LOOP:z=VAL(z$):GOTO 9119
  3238.         END IF
  3239. 9118    Z=ASC(z$)-64
  3240. 9119    Q=0
  3241.         RETURN 
  3242.  
  3243. ' ---------------------
  3244.  
  3245. 9120    Z&=INT(A&(Z1,Z2))
  3246.         Z3=INT(Z&/10000) : Z&=Z&-Z3*10000
  3247.         Z4=INT(Z&/1000)  : Z&=Z&-Z4*1000
  3248.         Z5=INT(Z&/100)   : Z&=Z&-Z5*100
  3249.         Z6=Z&
  3250.         RETURN 
  3251.  
  3252. ' ---------------------
  3253.  
  3254. 9130    Z&=INT(C&(ZZ))
  3255.         Z3=INT(Z&/1000)  : Z&=Z&-Z3*1000
  3256.         Z4=INT(Z&/100)   : Z&=Z&-Z4*100
  3257.         Z5=Z&
  3258.         RETURN 
  3259.  
  3260. ' ---------------------
  3261.  
  3262. 9140    Z&=INT(B&(ZZ))
  3263.         Z3=INT(Z&/10000000) : Z&=Z&-Z3*10000000
  3264.         Z4=INT(Z&/1000000)  : Z&=Z&-Z4*1000000
  3265.         Z5=INT(Z&/10000)    : Z&=Z&-Z5*10000
  3266.         Z6=INT(Z&/1000)     : Z&=Z&-Z6*1000
  3267.         RETURN 
  3268.  
  3269. ' ---------------------
  3270.  
  3271. 9170    GOTO 9201
  3272.  
  3273. 9172    JAY$ = INKEY$
  3274.         JAY$ = UCASE$(JAY$)
  3275.         IF JAY$ <> "R" THEN 9170
  3276. 9174    RETURN 
  3277.  
  3278. ' ---------------------
  3279.  
  3280. 9180    Z$=FND$(B&(X1))
  3281.         X$=FND$(X3)
  3282.         MID$(Z$,X2,1)=X$
  3283.         B&(X1)=VAL (Z$)
  3284.         RETURN 
  3285.  
  3286. ' ---------------------
  3287.  
  3288. 9190    INPUT_SAVE
  3289.         LINE INPUT " ENTER Y OR N ";Z$
  3290.         Z$=UCASE$(Z$)
  3291.         INPUT_RESTORE
  3292.         IF Z$<>"Y" AND Z$<>"N" THEN 9190
  3293. 9192    RETURN 
  3294.  
  3295. ' ---------------------
  3296.  
  3297. click:
  3298. 9201            LOCATE 25,1:COLOR 2
  3299.         PRINT "       > PRESS SPACE BAR <     "
  3300.                 xx$="v":DO WHILE xx$<>CHR$(32)
  3301.                 xx$=INKEY$
  3302.                 LOOP
  3303.  
  3304. 9210    GOSUB 9300
  3305.         RETURN 
  3306.  
  3307. ' ---------------------
  3308.  
  3309. 9300    LOCATE 25,1
  3310.         PRINT"                                "
  3311.         RETURN 
  3312.  
  3313. 9350    T=INT(((Z3*150)+((5-LY)*150)+((DI-1)*100)))
  3314.         IF LY<5 THEN T=INT(T+800)
  3315. 9351    IF Z5<20 THEN T=INT(T*0.7)
  3316. 9352    IF Z3>7 THEN T=INT(T+(2250*(Z3-7)))
  3317. 9353    T=T+INT(ZM*((6-LY)*30))
  3318. 9355    T=INT(T*10)
  3319.         RETURN 
  3320.  
  3321. WAIT_WHILE:
  3322.     IF debugging
  3323.          RETURN
  3324.     END IF
  3325.  
  3326.     FOR DELAY_TIMER = 0 TO 1750
  3327.         DELAY_2 = DELAY_TIMER
  3328.         DELAY_2 = DELAY_TIMER+0.8
  3329.         DELAY_2 = DELAY_2*DELAY_2
  3330.     NEXT
  3331.     RETURN
  3332.  
  3333. ' ---------------------
  3334.  
  3335. '    Misc Subroutines
  3336.  
  3337.  
  3338. SUB INPUT_SAVE
  3339.         LOCATE 25,1
  3340.     CLEAR_INPUT_LINE
  3341. END SUB
  3342.  
  3343. SUB INPUT_RESTORE
  3344.         LOCATE 25,1
  3345.     CLEAR_INPUT_LINE
  3346. END SUB
  3347.  
  3348.  
  3349. SUB CLEAR_INPUT_LINE
  3350.  
  3351. 'Clears the INPUT line of the display.
  3352.  
  3353.     LOCATE 23,1
  3354.     PRINT SPACE$(64);
  3355.     LOCATE 23,1
  3356. END SUB
  3357.  
  3358.  
  3359. SUB PAUSE(PAUSE_DELAY)
  3360.  
  3361.     SHARED BREAK_FLAG
  3362.  
  3363.     IF PAUSE_DELAY=0
  3364.         WHILE INKEY$="" : WEND
  3365.     ELSE
  3366.         ON TIMER ((PAUSE_DELAY/2)) GOSUB TIMEOUT 
  3367.         TIMER ON
  3368.         BREAK_FLAG=0
  3369.         WHILE BREAK_FLAG=0 AND INKEY$=""
  3370.         WEND
  3371.         TIMER OFF
  3372.     END IF
  3373. END SUB
  3374.  
  3375. TIMEOUT:
  3376.     BREAK_FLAG=-1
  3377.     RETURN
  3378.  
  3379. SUB STRSET(P1$,P2$)
  3380.  
  3381.     P1$=P2$+SPACE$(LEN(P1$)-LEN(P2$))
  3382.  
  3383. END SUB
  3384.  
  3385. delay:
  3386.           x=speed*500
  3387.           FOR rx=1 TO x
  3388.           NEXT
  3389. RETURN
  3390.  
  3391. 9500            COLOR 2        
  3392.                 IF Q=9 THEN LOCATE 24,1:PRINT SPACE$(30)    
  3393.                 LOCATE 25,1:PRINT SPACE$(38)            
  3394.                 IF Q=9
  3395.                 LOCATE 25,1
  3396.                 PRINT "REF TO CHANGE/W TO RETURN"
  3397.                         z$="":DO WHILE z$<CHR$(97) OR z$>CHR$(119)
  3398.                 z$=INKEY$
  3399.                         LOOP:IF z$="w" THEN z$="R"
  3400.                 IF Z$="R" THEN 9519
  3401.         END IF
  3402.         IF Q=7
  3403.                         LOCATE 25,1
  3404.                         PRINT "SELECT A TO V";sub$
  3405.                         z$="":DO WHILE z$<CHR$(97) OR z$>CHR$(118)
  3406.                         z$=INKEY$
  3407.                         LOOP
  3408.         END IF
  3409. 9518    Z=ASC(z$)-64
  3410. 9519    Q=0:RETURN 
  3411.